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IBM System/360 Operating System 
FORTRAN IV Syntax Checker 

Program Number: 360S-F0-550 



This publication describes the internal logic 
of the FORTRAN IV Syntax Checker, which is a 
component of the IBM System/360 Operating System 
Conversational Remote Job Entry (CRJE) and of the 
Time Sharing Option (TSO) of System/360 Operating 
System. Thus, the reader is required to have a 
knowledge of FORTRAN IV and an understanding of 
the concepts and facilities of CRJE and/or TSO. 
The publication identifies areas of the syntax 
checker that perform specific functions and 
relates those areas to the program listings. 

The FORTRAN IV Syntax Checker, a processing 
program called via the terminal command language 
of CRJE or TSO scans input written for the E, G, 
Gl, H # or Code and Go levels of the FORTRAN. IV 
language for syntactical errors. The input is 
checked on a single-statement basis, i.e., no 
cross-checking between statements is performed. 
The syntax checker: 

• receives FORTRAN source statements in a chain 
of buffers from CRJE or TSO. 

• scans these statements for errors; multiple 
errors in one statement are diagnosed whenever 
possible. 

• sends appropriate error messages to CRJE or 
TSO for printing at the user 1 s terminal. 

This program logic manual is directed to the 
IBM customer engineer who is responsible for 
program maintenance. Because program logic 
information is not necessary for program operation 
and use, distribution of this manual is restricted 
to persons with program maintenance 
responsibilities. 



PREFACE 



This publication provides customer 
engineers and other technical personnel 
with information describing the internal 
organization and logic of the FORTRAN IV 
Syntax Checker. Publications that are 
required for an understanding of the syntax 
checker are: 

IBM_System/36 0_and_System/370 FORTRAN 

lYJ^nguage, Order No. GC28-6515 

I?M_System/3 60_L Basic_FORTRAN_IV 

k§nsuage, Order No. GC 28-6629 

I BM Syste m /360 Operating Syste m: CRJE 

Concepts and Facilities , Order No. 
GC30-2012 

Related information is found in: 

IBM System/3 6 Operating Syst em : 

CRJE System Programmer* s Guide , Order 
No. GC30-2016 

CRJE Terminal User* s Guide , Order No. 
GC30-2014 

CRJE Program Logic Manual , Order No. 
GY30-2011 

This manual consists of the following 
parts : 

1, An Introduction, which describes the 
syntax checker as a whole, including 
its relationship to Conversational 
Remote Job Entry and to the Time 
Sharing Option of the System/360 
Operating System. The major divisions 
of the program and the relationships 
among them are also described in this 
section. 

2. A Method of Operation section which 
provides: (a) an overview of the 



logic of each of the major divisions 
and (b) detailed descriptions of 
specific operations and routines 
within these divisions. 



3. A section describing the organization 
of the FORTRAN IV Syntax Checker. 
Program components (modules, control 
sections, and routines) are described 
both in terms of their operation and 
their relation to other components. 
Flowcharts are included at the end of 
this section. 



A directory that helps the reader find 
named areas of code in the program 
listing, which is contained on 
microfiche cards. 



5. A section illustrating the layouts of 
tables and work areas used by the 
syntax checker. These layouts may not 
be essential for an understanding of 
the basic logic of the program, but 
are essential for analysis of storage 
dumps . 

6. A section containing diagnostic aids, 
including debugging aids and general 
register contents during execution of 
major routines. 

7. Appendixes, which provide system 
generation information about the 
syntax checker, an error code 
message-originating routine cross 
reference table, and a sample FORTRAN 
language definition. 

If more detailed information is 
required, the reader should refer to the 
comments and coding in the syntax checker 
program listings. 
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Summary of Amendments Number 1 

Date of Publication: May, 1971 

Form of Publication: Revision GY28-6831-2 

Metalanguage Descriptions Added 

New: Documentation Only 

Appendix D, describing the metalanguage for modules IPDTEE and IPDAGH, is included in 
this edition. 



Syntax Table Description Expanded 

Maintenance: Documentation Only 

The explanation of the contents of a syntax table in the Method of Operation section has 
been updated for clarification. 



Error Message Description Expanded 

Maintenance: Documentation Only 

The description of error messages in the Method of Operation section has been updated for 
clarification. 



Contents of Communications Area Altered 

New: Program and Documentation 

The first four bits of the communications region indicate whether the call to the Syntax 
Checker is a first, intermediate, or final call. 

Get-Character Routines Modified 

New: Program and Documentation 

The descriptions of the Get-Character routines in the Program Organization section have 
been changed to indicate that those routines obtain characters from a work area. 

Executive Module (IPDSNEXC) Descriptions Modified 

New: Program and Documentation 

The following information has been included in the Program Organization section: 

• The Executive builds a statement character string in a work area. 

• The Executive passes control to the Checker to check statements. 

The following information has been included in the Method of Operation section: 

• The parameter list passed by the Executive to the Checker (IPDSNCKR) contains an 
additional entry. 

• The description of the function of the Executive has been expanded for clarification. 



Checker Module (IPDSNCKR) Description Modified 

New: Program and Documentation 

The description of the CKREXPON portion of the Checker has been modified to indicate 
the setting of a type switch. 

Error Message Text Changed 

New: Program and Documentation 

The text of error messages 104 and 105 in Appendix B has been revised to apply to both 
free- and fixed-form source statements. 

Miscellaneous 

New: Program and Documentation 

Throughout the book changes have been made to reflect the Syntax Checker's operation 
with TSO, FORTRAN Gl, and Code and Go FORTRAN. 

WKATINUE Table Replaced 

New: Program and Documentation 

The WKATINUE table has been replaced by the table WKATINU, which accommodates 
free-form source statements. 

Work Area Tables Expanded 

New: Documentation Only 

The tables describing the Syntax Checker Work Area (IPDSNWKA) and the work areas 
which it comprises have been expanded to include the relative address of each field. 



Editorial changes that have no technical significance are not noted here. 

Specific changes to the text made as of this publishing date are indicated by a vertical bar 
to the left of the text. These bars will be deleted at any subsequent republication of the 
page affected. 
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SECTION I J 



INTRODUCTION 



This section provides general 
information describing the purpose, 
structure, and configuration of the FORTRAN 
IV Syntax Checker, a component of OS/360 
Conversational Remote Job Entry (CRJE) and 
of the Time Sharing Option (TSO) of OS/360. 



PURPOSE OF THE SYNTAX CHECKER 



At the request of a terminal user, the 
OS/360 FORTRAN IV Syntax Checker analyzes 
input written for the E, G, Gl, H or Code 
and Go levels of the OS/360 FORTRAN IV 
language. Checking is requested via the 
EDIT command and the SCAN subcommand of the 
terminal command language. The FORT 
parameter of the EDIT command specifies the 
language definition level that is to be 
used. The user*s source statements may be 
in a user library (CRJE) or OS data set 
(CRJE and TSO), or they may be entered from 
the terminal. These statements are checked 
for errors on a single-statement basis. 
Any error requiring cross-checking between 
different statements, such as a reference 
to a missing label, is not detected. Also, 
within one statement each syntactical unit 
is checked independently; e.g., function 
definition arguments that are not unique 
within a statement are not diagnosed. 
Multiple errors in a statement can be 
diagnosed only if the continued scan 
through the statement does not depend on 
any corrective action. 



Structure of the Syntax Ch ecker 



The FORTRAN IV Syntax Checker which 
consists of four modules — IPDTEE, IPDAGH, 
IPDSN, and IPDER — employs a table-driven, 
syntax-directed approach to checking 
FORTRAN statements. The syntax of the 
language is defined in two tables of 
constants: module IPDTEE for FORTRAN IV 
level E and module IPDAGH for FORTRAN IV 
levels G, Gl, H and Code and Go. 

Module IPDSN,. executing under the 
direction of the syntax table selected by 
the user, checks the source statements 
entered for scanning. IPDSN contains two 
logical segments that are coded in separate 
control sections: IPDSNEXC, the executive, 
and IPDSNCKR, the checker. These two 
control sections use the same work area, 
IPDSNWKA. The executive interfaces with 
the environmental system to get source 
statements and to issue error messages. It 
does not read statements from or print 
messages at the terminal; all input/output 
is performed by the system. Statements 
read from the terminal are passed to the 
executive in a chain of buffers; 
diagnostics are returned to the system in 
the work area. Other necessary information 
is passed to the executive via a 
communications area and an options word. 
The executive builds a character string in 
the work area from an input source 
statement and passes control to the 
checker. The checker receives pointers to 
a syntax table and to the character string, 
checks the statement, and, regardless of 
whether an error is found, returns control 
to the executive. 



When an error is detected, a diagnostic 
message is produced. Generally, a 
diagnostic message produced when scanning a 
statement for FORTRAN E will be the same as 
the message produced when the same error is 
found in scanning that statement for 
FORTRAN G or H. However, there are 
messages unique to a particular language 
level. These messages diagnose, for 
example, the use of features not supported 
by a paticular level, such as the use of 
FORTRAN G features not allowed in FORTRAN E 
or H. 



When an error condition is detected, the 
executive passes control to the error 
processor module, IPDER, which constructs 
diagnostic messages. 

The flow of program control and data 
between the FORTRAN Syntax Checker and CRJE 
I or TSO is illustrated in Figure »1. 



Syntax Checker and Configuration 
Cons ider a t ion s 



Since the user receives error 
diagnostics immediately and can take 
corrective action, much compilation cost 
and waiting time for a complete job 
turnaround can be eliminated. 



The FORTRAN IV Syntax Checker operates 
as a separate component in the CRJE or TSO 
environment. The checker operates on all 
machine configurations supported by CRJE or 
TSO and is entirely I/O device independent 
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since all device interface is handled by 
the environmental system. 



At system generation time, an 
installation specifies which syntax checker 
modules, if any f are to be included on 
LINKLIB (see Appendix A), When system 
generation is completed and if the FORTRAN 
IV Syntax Checker modules are to be 
included, LINKLIB contains: 

1. The IPDSNEXC load module, which 
results from linkage editing IPDSN and 
IPDER and which contains the syntax 
checker's executable code; and 

2. either or both definition table 
modules, IPDTEE and IPDAGH. 

At CRJE startup time, one of three 
configurations may be selected. Included 
in each of the configurations is the 
executable IPDSNEXC module, 10,240(10. OK) 
bytes, and a work area of 4096(4. OK) bytes 
plus : 

1. only the definition table for FORTRAN 
E (IPDTEE), total size, 16, 384(16. OK) 
bytes, or 



2. only the definition table for FORTRAN 
G, Gl, H and Code and Go (IPDAGH), 
total size, 19, 456(19. OK) bytes, or 

3. both definition tables, total size, 
21, 504 (21. OK) bytes. 

At TSO START time, the Link Pack Area 
may be set up to contain any, all, or none 
of: 

syntax checker executable code 
syntax table for FORTRAN level E 
syntax table for FORTRAN levels G, Gl, 
H, and Code and Go 

For a given TSO SCAN session, the user 
requires a work area (in his region) , the 
checker executable code (in his region or 
LPA), and one of the syntax tables (in his 
region or LPA) . Thus the user region 
storage requirement depends upon the Link 
Pack Area contents selected at START time; 
the requirement could be 4.0, 6.0, 9.0, 
14.0, 16.0 or 19. OK depending on the 
contents of LPA, 

The modules necessary for each 
configuration must be resident on LINKLIB 
after system generation is completed. 
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Note: The CSECT's IPDSNEXC, IPDSNCKR, and IPDERERR are in 
the load module IPDSNEXC. 

Broken lines represent passage of data; solid lines represent transfer 
of control . 

Figure 1. FORTRAN Syntax Checker System Flow 
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SECTION II: METHOD OF OPERATION 



This section contains: 

• a description of the modules IPDTEE and 
IPDAGH, which contain the FORTRAN IV 
syntax definitions. 

• a description of the syntax checker' s 
interface with the environmental 
system. 

• a detailed functional description of 
the syntax checker modules IPDSN and 
IPDER. 



table. "Issuing Error Messages" describes 
using the metalanguage to determine which 
error message is issued if the source 
statement contains an error. "The 
Definition of a Simple Language" uses the 
metalanguage to define a small subset of 
FORTRAN, providing an example of the use of 
the metalanguage. Finally, "Translation 
from the Metalanguage to Assembler 
Language" describes how the metalanguage 
description is translated into a series of 
assembler language DC^s to form a syntax 
table module. 



SYNTAX TABLES: A DESCRIPTION OF THE 
MODULES IPDTEE AND IPDAGH 



Note : In this context, a metalanguage is 
defined as a language used to describe 
another language. 



The syntax checker operates on the 
source statements submitted for checking by 
comparing them with a "syntax table. " The 
syntax table contains a description of all 
the valid statements in the language being 
checked. In the FORTRAN syntax checker, 
there are two syntax tables: the IPDTEE 
module is a syntax table for FORTRAN level 
E, and the IPDAGH module is a syntax table 
for the G, Gl, H, and Code and Go levels of 
FORTRAN. This section explains how a 
syntax table (such as IPDAGH) is created, 
and how it is compared to the source 
statement being checked. 

This explanation commences with "What a 
Syntax Table Describes." Then, "How a 
Syntax Table is Created" gives a very 
general description of syntax table 
creation, defines a metalanguage, and 
introduces the use of a metalanguage in 
creating syntax tables. "The Metalanguage" 
gives a general description of the 
metalanguage used in creating IPDTEE and 
IPDAGH. "The Form of Syntactic Lines" and 
"Active and Passive Syntactic Lines and 
Enclosing Lines" describe the type of 
statements in this metalanguage, and the 
form in which they are written. A detailed 
description of the elements of this 
metalanguage is given in Table 1. The 
remaining topics assume a general 
understanding of Table 1. "Elements in the 
Definition Portion of Syntactic Lines" 
divides the metalanguage elements in Table 
1 into several classes, and explains how 
some of these elements effect the scanning 
of portions of the source statement. Then, 
"Scanning the Syntax Table" explains how 
the source-scanning metalanguage elements 
interact with the other metalanguage 
elements to control the scan of the svntax 



What a Syntax Table Describes 



The complete syntactic description of a 
language would be a description of every 
character in every possible valid statement 
in the language. However, the syntax 
tables in the checker do not describe 
everything that could be present in the 
input stream of a FORTRAN compiler. 
Rather, they describe statement portions of 
the input lines (i.e., exclusive of 
statement label and continuation symbols, 
if present) . 

Another way to explain what the syntax 
tables describe is to say that they 
| describe the forms permitted in any fields 
to which the "get-character" routines have 
access. These are the routines which 
obtain characters from the character string 
for comparison with a syntax table. If the 
get-character routines were changed, the 
checker could be used for input other than 
a contiguous character string. For 
example, the get-character routines could 
be tailored to obtain characters from text 
fields of the records in an input buffer 
chain. The checker is thus designed with a 
high degree of independence from source 
language definition. 



How a S y ntax Table Is Cre ated 



The syntax table for a language could be 
written directly as a series of DC 1 s in 
assembler language. But it is also 
possible to describe the language with a 
metalanguage and then use the rules stated 
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in Table 1 and "Translation f rom the 
Metalanguage to Assembler Language" to 
convert the metalanguage description of the 
language into the DC 1 6. This approach was 
used to create the IPDTEE and IPDAGH 
tables. The metalanguage descriptions are 
part of the comments in the IPDTEE and 
IPDAGH source modules. Listings of the 
metalanguage used to create the two tables 
are included in Appendix D. 



line will refer to other lines, and these 
may in turn refer to further lines, and so 
on. Theoretically, there is no limit to 
the number of such levels of reference. In 
addition, a syntactic line may refer to 
itself. The self -reference facility is 
very useful in describing expressions, for 
example. In a properly written set of 
syntactic lines, every line except the 
first will be referred to by another line, 
since no line (except the first) will be 
used unless another line refers to it. 



The Metalanguage 



Table 1 describes in detail all the 
elements of the metalanguage that was used 
in creating the IPDTEE and IPDAGH syntax 
tables. A broader view of using the 
metalanguage to describe a complete 
language is given here. 

Note : For most of the elements in Table 1 
the word "operator" can, and often does in 
this description, replace "element. " 

The description of a language is 
accomplished by writing a series of 
syntactic lines, using the elements of the 
metalanguage. The syntactic lines in the 
definition of a language perform two 
functions in addition to describing the 
syntax of the language: 

• They determine the order in which the 
syntax checker will use the syntactic 
lines in examining a statement 
submitted for checking. 

• They determine which error message the 
syntax checker will issue if the 
statement submitted for checking fails 
to match the definition of the 
language. 

Strictly speaking, neither of these 
functions is necessary for the description 
of a language, so the operators and rules 
which provide the functions can be 
considered extensions to the concept of a 
metalanguage. These extensions are 
necessary when the definition is to be used 
to analyze statements and diagnose those 
found invalid. Throughout this manual, the 
term "metalanguage" refers to the extended 
metalanguage needed to provide ordering and 
error message capability in addition to 
language description. 

The order in which syntactic lines are 
used is not determined by the order in 
which they are written, as it is in a 
language such as FORTRAN. Instead, a 
syntactic line is used when another 
syntactic line refers to it. The only 
ordering rule is that one particular 
syntactic line is used first. This first 



The Form of Syntactic Lines 



Since the metalanguage description need 
not be prepared in machine- processable 
form, there are no rules about spacing, 
continuing, or terminating syntactic lines, 
and there is no limitation on their length. 
(For legibility, conventions for these were 
established for the metalanguage portion of 
the comments in the source decks of IPDTEE 
and IPDAGH. ) 

Each syntactic line consists of three 
parts: a name, an equal sign, and a 
definition portion. A syntactic line 1 s 
name is a word which identifies the line so 
that references can be made to it. The 
equal sign separates the name from the 
definition portion of a syntactic line. 
The definition portion is the part of the 
line that actually describes source 
characters. It uses the definition portion 
metalanguage elements (see Table 1) to 
state the syntactic rules for valid 
statements in the language being described. 



Active and Passive Syntactic Lines an d 
Enclosing Lines 



There are two kinds of syntactic lines, 
active and passive. They differ in two 
ways: the elements that can appear in 
their definition portions are different 
and they are referred to in a different 
manner. The first line of a language 
definition must be an active line, the 
IPDTEE and IPDAGH definitions consist 
mainly of active lines, with just a few 
passive lines. 

An active line 1 s definition portion may 
contain any of the definition portion 
metalanguage elements described in Table 1, 
except table definitions. Thus, the active 
line 1 s definition portion can express 
alternatives, optional items, definite 
iteration, indefinite iteration, and 
literals; define error messages; use 
operators and action codes; refer to active 
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and passive syntactic lines; and state that 
a statement type has been recognized and 
that a form is no longer optional. An 
active line is referred to simply by 
writing its name in the definition portion 
of a syntactic line. 

A passive line 1 s definition portion 
consists entirely of one table definition. 
Only literals, references to syntactic 
lines, action codes, and zeros may appear 
between the double quotes that enclose the 
definition portion. The part of the 
definition portion between the double 
quotes is a group of pairs. The first 
member of each pair is a literal, and the 
second member is a syntactic line 
reference, an action code, or zero, which 
determines what is done if the source 
characters match the literal. Passive 
lines are referred to by a plus or a minus 
followed by the name of the passive line. 
Since a passive line's definition portion 
is a table, references to a passive line 
are often called table references. (See 
the description of operators in Table 1 of 
this section. ) 

The entire group of active and passive 
syntactic lines defining a language is 
enclosed by two lines with a special 
format. These two lines are not considered 
to be syntactic lines. The one which 
precedes all the syntactic lines is 
written: 

SYNTAX active- line-name 

where w active-line-name w is the name of the 
active line which is to be used first. 
This active line is called the first 
syntactic line of the definition, even if 
it is not physically the first syntactic 
line. The last, which follows all the 
syntactic lines, is written: 

SYNTAX END 

Because of these special uses of the word 
SYNTAX it is not used as the label of any 
syntactic line. 



E lem ents in the Definitio n Portion of 
Syntacti c Lines 



The elements used in writing the 
definition portion of both active and 
passive syntactic lines can be divided into 
two groups: those that describe source 
statement characters, and those that do 
not. The first group consists of the 
following elements: N, M, L, D, A, K, S, 
H, C, literal, not-literal, scan, scan-not, 
the literals in a table definition, and 
action codes. (Including all the action 



codes in this class is an arbitrary 
decision, since an action code amounts to a 
transfer out of the syntax table to the 
executable routine corresponding to the 
action code number. The executable routine 
could perform any function desired, 
including the description of source 
characters. ) All the other definition 
portion elements described in Table 1 
constitute the group of elements that do 
not describe source characters. 

Except for the scan, the scan-not, and 
some of the action codes, all of the 
elements that describe source characters 
also can advance a source pointer. If the 
next available source characters satisfy 
the description expressed by the element, a 
pointer in the get-character routines is 
advanced. After the pointer is advanced, 
the next available source character becomes 
the one just to the right of the 
character (s) which satisfied the element's 
definition. The characters which matched 
the element's definition are now 
unavailable. The source pointer always 
proceeds from left to right in the string 
of characters accessible to the 
get-character routines. However, the 
syntax checker can save the source pointer 
and can reset it to the saved value if 
necessary. This ability to back up in the 
source is required in the processing of 
optional items and alternatives.. 

When an element that can advance the 
source pointer examines source characters, 
it produces a T (for true) or an F (for 
false) . Except for the not-literal 
element, the T is produced when the source 
pointer is advanced, and F when it is not. 
The not- literal element produces F if it 
advances the source pointer (that is, if 
the literal is present in the source) and T 
if it does not advance the source pointer. 
Action codes could be written to work 
either way, but in the IPDTEE and IPDAGH 
definitions all action codes that can 
advance the source pointer produce T if 
they do advance the source pointer and F if 
they do not. The scan and scan-not 
elements never advance the source pointer, 
but they do produce a T or an F. The scan 
produces a T if the character it scans for 
exists anywhere in the available source, 
and an F if it does not. The scan-not 
produces an F if the character exists 
anywhere in the available source, and a T 
if it does not. The action codes that do 
not advance the source pointer also produce 
either a T or an F when they are executed. 

The elements that do not describe source 
characters control the scan of the syntax 
checker through the syntax table and define 
error messages. These functions are 
described in "Scanning the Syntax Table" 
and "Issuing Error Messages". 
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Another grouping of elements that is 
used later in this explanation is T/F 
elements. The T/F elements are all the 
elements that produce a T or F when the 
syntax table scan encounters them. The T/F 
elements consist of all the 
source- describing elements, references to 
active lines, and references to passive 
lines. Active and passive line references 
do not describe source characters. 
However, because they are T/F elements, it 
is often convenient to think of references 
to active and passive lines as describing 
source characters, even though the actual 
description occurs in the definition 
portion of the line to which reference is 
made. 



Scanning the Syntax Table 



This description of the scan of a syntax 
table is intended to aid in reading 
metalanguage descriptions. The actual scan 
of the table of DC*s by the syntax checker 
is not implemented exactly as described 
here. However, the effects of the scan 
described here and the actual scan are the 
same, provided that the metalanguage 
statements are properly translated into 
DCs as specified by Table 1 and 
"Translation from the Metalanguage to 
Assembler Language. w 

Each time the syntax checker begins 
checking a statement, it starts a scan of 
the syntactic lines. This scan always 
begins with the definition portion of the 
first syntactic line. The scan proceeds 
element by element, in left to right order, 
in the definition portion of the syntactic 
line, except when the scan encounters: 

1. An "or" operator in a series of 
alternatives 

2. A reference to a syntactic line 

3. The end of an active syntactic line 

4. A definite or indefinite iteration 
operator 

5. An active line element which produces 
an F 

The effect of each of these five cases 
on the scan will now be described. In case 
1, the fact that the scan reached the "or" 
operator means that all the T/F elements in 
the alternative that precedes the "or" 
produced T"s. Hence, one of the 
alternatives described was present in the 
source, and no further alternatives need be 
tried. The scan therefore skips to the 
first element after the right brace at the 



end of the series of alternatives. (If the 
last alternative is satisfied, the right 
brace will be encountered instead of an 
"or, " and no skipping is necessary since 
the normal left-to-right scan then passes 
outside the right brace. ) 

In case 2 (reference to a syntactic 
line) the action that occurs depends on the 
kind of line that is referred to. If it is 
an active line, a process known as nesting 
occurs. This consists of saving the 
location of the reference to the active 
line, and transferring the scan to the 
start of the definition portion of the 
named active line. References to passive 
lines operate differently depending on 
whether a plus or a minus precedes the 
passive line name. In either a plus or a 
minus passive line reference, the scan 
passes from left to right through the 
literals in the passive line 1 s table. This 
scan of the literals stops if one of the 
literals produces a T, or if all the 
literals are scanned, meaning that they all 
produced F' s. 

• A minus passive line reference produces 
an F if the scan stopped because a T 
literal was found, and that T literal 
advances the source pointer. The 
source pointer is not advanced, and a T 
is produced by the minus passive line 
reference, if all the literals produce 
F's. The element following a T literal 
is not used in a minus passive line 
reference. 

• A plus passive line reference produces 
an F (and does not advance the source 
pointer) if all the literals produce 
F*s. If the table scan is stopped by a 
T literal, the source pointer is 
advanced beyond the corresponding 
source characters, and the element just 
after the T literal is used. If this 
element is an action code, an active 
line reference, or a plus or a minus 
passive line reference, the effect is 
the same as if the T literal and the 
element after it were substituted for 
the plus passive line reference in the 
active line which made the reference. 
If the element after the T literal is a 
zero, the substitution would be just 
the T literal; hence the plus passive 
line reference just produces a T and 
advances the corresponding source 
pointer. 

Note that if a literal occurred more 
than once in a table, the left- to-right 
scan through the table would always produce 
a T for the leftmost occurrence of the 
literal when the source matched the 
literal. Since only the first occurrence 
can have any effect, multiple occurrences 
of a literal are considered erroneous. A 
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further consequence of the left-to-right 
scan of literals is that if any literal 
begins with the characters of another 
(shorter) literal, it must be placed to the 
l T eft of the shorter literal. If this were 
not done, source characters which matched 
the longer literal would produce a T with 
the shorter literal, and the longer literal 
could never produce a T. Provided that 
these precautions are observed, any 
reference to a passive line could be 
replaced with a reference to an equivalent 
active line. The equivalent active line 
will be different for plus references than 
that for minus references. For example, 
assume there is a passive line: 

TABLE = " 'I' $1 "2 1 TWO • 3" +THREE 
• 4' .-FOUR • 5' :0 " 

where action code 1, active line TWO, and 
passive lines THREE and FOUR are defined 
elsewhere. Every reference to +TABLE could 
be replaced by a reference to PLUSTABLE, 
which would have to be defined: 

PLUSTABLE = < • I 1 : $1 | ■ 2 1 TWO | '3' +THREE 
| • 4 1 -FOUR | f 5' > 

and every reference to -TABLE could be 
replaced by a reference to MINUSTABLE which 
would be defined: 

MINUSTABLE = 1 • 1' n ■ 2 1 t'3 1 t'4 1 n f 5' 

These two active lines advance the 
source pointer past the same source and 
produce the same T/F result as their 
passive equivalent. Their effect on the 
syntax table scan would be equivalent (but 
not identical) to that of the passive line. 
Passive lines, then, exist to increase the 
syntax checker' s execution speed. They are 
usually faster than the equivalent active 
line when there are four or more literals. 
They can also reduce core storage 
requirements, since they can replace two 
active lines when both plus and minus 
references are needed to define the 
language. 

Case 3 (the end of an active syntactic 
line) causes the syntax checker either to 
return to a "definition-satisfied" routine, 
or to "T-unnest" to the line that referred 
to the line that just ended. If the line 
that ended is the first line, or if the 
scan encountered a statement commit on that 
line, the definition-satisfied routine is 
invoked. If no messages have yet been 
issued, the definition-satisfied routine 
will issue an "invalid or excess source 
characters" message if any nonblank source 
characters remain available. If the line 
that ended was not the first line, and if 
no statement commit on that line has been 
scanned, T-unnesting occurs. T-unnesting 
consists of 1) producing a T for the 



reference which nested to the line just 
ended, and 2) transferring the scan back to 
the line containing that reference. The 
scan then continues with the first element 
to the right of that active line reference. 

In case 4 (definite or indefinite 
iteration) the scan is restarted at the 
first iterated element, except when the 
iteration limit of a definite iteration is 
satisfied. The right parenthesis after the 
iteration operator and its matching left 
parenthesis enclose the iterated elements. 
The first iterated element is the one just 
to the right of the enclosing left 
parenthesis. The first time the scan 
passes into the iterated elements, it 
passes over the left parenthesis enclosing 
them. This sets an iteration count to 
zero. Then every time the iteration 
operator is scanned, one is added to this 
count. This count is kept for indefinite 
as well as definite iterations so that an 
action code can test it. For definite 
iteration, the scan is not restarted if the 
iteration count equals the iteration limit. 
In this case, the scan is transferred to 
the first element after the right 
parenthesis which encloses the iteration. 

In case 5 (an active line element which 
produces an F) the effect on the scan 
depends on the location of the element 
producing the F, and on whether the checker 
is committed to finding source to match 
that element. If the syntax checker is 
committed, an error message will be 
produced. Discussion of this case is 
deferred to "Issuing Error Messages", which 
also explains how to commit the syntax 
checker. When the syntax checker is not 
committed, the effect on the scan depends 
on whether the F-producing element is or is 
not enclosed in parentheses or braces. In 
determining whether an F-producing element 
is enclosed in parentheses or in braces, 
the syntactic line containing that element 
is the only one considered. If the 
F-producing element is within nested braces 
and parentheses, the effect on the scan is 
determined by the inn e rmost braces or 
parentheses enclosing that element. Thus, 
in the metalanguage line: 

EXAMPLE =A(B<C|D(E)>)F 

A and F are not enclosed by braces or 
parentheses, B and E are enclosed by 
parentheses, and C and D are enclosed by 
braces. 

The rules given below describe, for each 
place it could occur, how an F-producing 
operator affects the scan when the syntax 
checker is not committed. Each rule 
describes only the immediate effect on the 
scan. To determine the total effect, these 
rules are applied as many times as 
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necessary. An example of their repeated 
application is given after the rules are 
stated. 

• If the F-producing element is not 
enclosed by either parentheses or 
braces, F-unnesting occurs. 
F-unnesting consists of 1) producing an 
F for the reference which nested to the 
line where the F was produced, and 2) 
transferring the scan back to the line 
containing that reference. 

• If the F- producing element is enclosed 
in parentheses, any advances of the 
source pointer during the current scan 
of the parenthesized elements are 
canceled by restoring a saved source 
pointer, and the scan skips to the 
first element after the right 
parenthesis. In effect, the 
parentheses and the elements they 
enclose act as a single element which 
produced a T. Thus, in the current 
scan of the parenthesized elements, the 
source pointer is unchanged, and no 
failure occurs if the optional form is 
not present in the source characters. 

• If the F-producing element is enclosed 
in braces, any advances of the source 
pointer in the alternative which 
contains the element are canceled. The 
scan then skips to the first element of 
the next alternative, if there is one. 
If the F occurred in the last 
alternative, the entire series (from 
left to right brace) acts as a single 
element that produced an F, which is 
treated as described by the preceding 
rules. 

For the examples, assume that these two 
lines are written to describe a name, 
optionally followed by a plus or minus 
followed by a number: 

LINEA = N ( LINEB ) 
LINEB = < ■+■ | •-• > K 

Suppose now that these are the first 
available source characters when nesting to 
LINEA occurs: 

Example 1: A - B 
Example 2: SIX* 3 

In example 1, the N on LINEA advances 
the source pointer beyond the A and then 
the reference to LINEB causes nesting to 
LINEB from LINEA. The first alternative on 
LINEB produces an F, so the second 
alternative is tried, and succeeds, 
advancing the source pointer beyond the 
minus sign in the source. Since the first 
available source character is now the B, 
the K operator fails, and F-unnesting back 
to LINEA occurs. The reference to LINEB on 



LINEA has therefore produced an F, but 
since it is in parentheses, all that 
happens is that the source pointer advanced 
by LINEB is backed up, and the scan passes 
to the end of LINEA, which causes 
T-unnesting to the line which referred to 
LINEA. Thus, the reference to LINEA only 
advanced the source pointer beyond the A. 

In example 2, the N on LINEA advances 
the source pointer beyond the SIX, and then 
nesting to LINEB occurs. On LINEB, the 
first alternative is tried and fails, so 
the second (and last) alternative is tried. 
This too fails, so the set of alternatives 
acts as a single F-producing element, 
producing F-unnesting to LINEA. The F in 
the parentheses on LINEA acts just as in 
example 1, with the result that the 
reference to LINEA advanced the source 
pointer beyond the characters SIX, and 
produced a T. 



Issuing Error Messa ges 



The error messages issued by the syntax 
checker can be divided into two classes: 
explicit and implicit. The difference is 
that message codes corresponding to the 
explicit messages are actually written in 
the syntactic lines, while the message 
codes for implicit messages are internal to 
action codes and operators and do not 
appear explicitly on the syntactic lines. 



Explicit Error Messag es 



For an explicit error message to be 
issued, two conditions must be satisified: 

• Some element must produce an F 

• The syntax checker must be committed 
when the F is produced. 

If these two conditions are satisfied, 
the "current message " is issued. The 
current message is the error message 
corresponding to the current error code on 
the line where a committed element produced 
an F. The current error code is either the 
last one scanned on that line, or, if none 
has been scanned, is determined as 
explained below. 

When the syntax checker begins checking 
a statement, a default message, "System or 
Syntax Checker Failure", is the current 
message for the first syntactic line. This 
message, or the current message on any 
active syntactic line, is replaced by a new 
current message for the syntactic line 
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whenever the scan encounters another error 
message (i.e., an asterisk followed by the 
code for that message) on that line. 

When nesting to an active line occurs, 
the current message on that line is set 
from the current message on the line from 
which nesting occurred. This message may 
be appropriate for the entire line to which 
nesting occurred. If it is no^t, the 
definition portion of that line is written 
so that, as the scan proceeds through the 
line, the current message is redefined 
whenever another message would be more 
appropriate. 

In the case of unnesting, the current 
message on the line to which unnesting 
occurs remains the same as it was before 
nesting. Thus, there is no need to 
reassign that message, even though the line 
from which unnesting occurred might have 
redefined its current message many times. 

Note ; Except for this "restoring of 
current error message on unnesting, " any 
reference to an active line could be 
replaced by writing the definition portion 
of that active line in place of the 
reference to it. Because of the error 
message restoration, such a substitution 
would have to be followed by the error 
message to be restored if the substituted 
definition portion redefined the current 
error message. By rewriting any passive 
lines as their active equivalent (s) , and by 
then making the substitution just 
described, any syntactic definition could 
be reduced to a single active syntactic 
line. However, if this were done with a 
definition in which any line refers either 
directly or indirectly to itself, the 
resulting active line would be of infinite 
length. 

The second requirement for issuing the 
current message is that the syntax checker 
be committed. The checker becomes 
committed whenever the scan of the syntax 
definitions encounters a slash (/) or a 
colon(:). The appearance of either of 
these two operators signifies that the 
definition is no longer optional at this 
point and that any subsequent failure to 
satisfy the definition constitutes an error 
in the source statement. These operators 
are also called "local commit" (/) and 
"statement commit" <:) in the discussion 
that follows. The effects of the statement 
commit described here are in addition to 
its effects described in "Scanning the 
Syntax Table." However, braces or 
parentheses alter syntax checker commitment 
according to the following rules; 

• When the scan encounters a left brace 
or a left parenthesis, any commit in 
effect is suspended until the scan 



passes outside the corresponding right 
brace or parenthesis, at which time 
that commit is again in effect. Thus, 
elements in braces or parentheses 
cannot be committed by a commit outside 
the braces or parentheses. 



• When a local commit is in effect within 
braces or parentheses, its effect is 
terminated when the scan encounters an 
"or", a right brace, a definite or 
indefinite iteration operator, or a 
right parenthesis. 



• When a sta tement commit is in effect 
within braces, or within parentheses 
without iteration, the statement commit 
remains in effect when the scan 
encounters an "or", a right brace, or a 
right parenthesis. 

• When a statement commit is in effect 
within parentheses with iteration, it 
acts like a local commit within the 
parentheses. However, the statement 
commit remains in effect when an 
uncommitted F-producing element or a 
satisfied iteration count transfers the 
scan outside the parentheses. 

• Any commit in effect when nesting 
occurs, causes a l ocal commit to be in 
effect when the scan of the referenced 
line begins. 

• If a local commit is in effect when 
unnesting occurs, it remains in effect 
on the line to which the scan returns 
in unnesting. (Unnesting cannot occur 
when a statement commit is in effect. ) 

These rules state that a commit in 
effect outside a series of alternatives 
does not commit any element within the 
braces. However, if none of the 
alternatives is found in the source, the 
braces and all the elements they enclose 
act as a single F-producing element. So if 
a commit preceded this F-producing element, 
the current error message is issued. 

After it issues an error message, the 
syntax checker takes one of two actions: 
checking of the statement is terminated, or 
checking is continued. If the message code 
for the current message was an odd number, 
or, if no more nonblank source characters 
are available, termination occurs. If the 
message code was an even number, and if 
nonblank source characters remain 
available, checking is continued by 
changing the F which caused the message to 
a T. The syntax table scan then proceeds 
as though the F had not been produced. The 
source pointer is not changed when the F is 
changed to a T. 
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Each message is assigned two message 
codes: an even number and the next higher 
odd number. This allows a given message to 
be issued either with or without 
termination, whichever is more appropriate 
for a given situation. 



Implicit Error Messages 



Implicit error messages are the error 
messages issued by the C, H, K f N, and S 
syntactic elements and by the action codes 
which issue messages. The implicit error 
message codes are defined in the coding of 
the routines which interpret these 
elements, and therefore cannot be altered 
by anything written on a syntactic line. 
Some of the implicit messages will not be 
issued unless the element which can issue 
them is committed; others are issued even 
if the element is not committed, some 
elements can issue more than one implicit 
message. Termination of checking can occur 
after an element issues its implicit 
message (s). When termination does not 
occur, the element which issued the 
implicit message (s) produces a T. None of 
the implicit- error-message elements 
described in this manual can cause the 
checker to become committed. The 
descriptions of these elements should be 
consulted for specific details about the 
implicit error messages associated with an 
element, and about its effect on the source 
pointer. 



The Definition of a Simple Language 



The syntactic description of a subset of 
FORTRAN is given in Figure 2. Appendix C 
provides the assembler language equivalent 
for this subset's description. The subset 
consists of these types of FORTRAN 
statements: DO, arithmetic assignment, 
CONTINUE, unformatted READ and unformatted 
WRITE, both with required I/O lists, STOP, 
and END. Logical constants and operators, 
complex constants, relational operators, 
subscripts, function references, implied 
DOs in I/O lists, variable names as DO 
parameters, variable names as data set 
references numbers, and digit strings after 
STOP are not permitted in the statements of 
this subset. The subset does permit mixed 
mode, parenthesized expressions. The 
FORTRAN subset was chosen because its 
metalanguage description, although short, 
illustrates many of the metalanguage 1 s 
facilities. Thus, the subset described in 
Figure 2 is not intended to be a practical 
programming language. The action codes and 
error message codes of Figure 2 are the 



same as the ones described more fully 
elsewhere in this manual. 

SUBSET, the first syntactic line of the 
subset definition, determines the overall 
strategy in scanning statements. It first 
defines "Unrecognizable Stmnt or Misspelled 
Keywd" as the message to be issued if all 
its alternatives fail, and then gives as 
alternatives the general classes of 
statements in the subset language. (In 
this discussion, "fail" is equivalent to 
"produce an F", and "succeed" is equivalent 
to "produce a T. " ) The ordering of these 
alternatives is important to the correct 
and efficient operation of the syntax 
checker, so the reasons for the ordering 
shown are described in some detail. The 
most commonly used statement in FORTRAN is 
the assignment statement. For efficiency, 
then, a source statement should first be 
checked as a possible assignment statement. 
However, FORTRAN permits assignment 
statements such as: 

D03I=16 

Therefore, if assignment statement were 
tried first, no commit could be written in 
the definition of assignment statement 
until the checker had determined that a 
comma did not follow the first operand 
after the statement's equals sign. To 
permit an early commit in assignment 
statement checking, the first alternative 
tests whether the statement begins with 
"DO", and nests to DO if it does. The 
reference to DO will fail if the statement 
is not a DO statement, and then assignment 
statement will be tried. If the statement 
does not begin with "DO", the literal in 
the first alternative wiJLl fail and the 
scan will skip to the second alternative 
without nesting to DO. 

The second alternative of SUBSET 
describes assignment statements. If it is 
reached, the statement is not a DO 
statement, but could be either an 
assignment statement or one of the 
statements beginning with a keyword. Since 
some FORTRAN keywords are longer than six 
characters ("CONTINUE" being the only one 
in the subset) , it is not appropriate to 
use the N operator in the second 
alternative. The N operator would issue a 
"name too long" message for any of the long 
keywords. Instead, the M operator, which 
issues no error messages, is used. This 
operator will fail if it encounters a long 
keyword (or a name too long) so that the 
third alternative of SUBSET, which refers 
to a table of the keywords, will be tried 
before an error message is issued. If the 
characters which caused M to fail actually 
are a long name (or a misspelled keyword), 
instead of a keyword, the reference to the 
table of keywords will also fail. Then the 
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h 



SYNTAX SUBSET 



*3 < 'DO 1 DO | M ASSIGNMENT | 

+KEYWORD | N ASSIGNMENT 

• = • -OPERATOR K $100 •,• * 

* 4 -OPERATOR K $100 ( •,' / 

-OPERATOR K $100 ) 

= w i + i i_i i* + i o •*• '/': 

= •=• : *7 EXPRESSION 
EXPRESSION = <■<■•*• | •-• > ) 

OPERAND *55 ( +OPERATOR / OPERAND 
< N | K I ' (' / *7 EXPRESSION *12 



SUBSET = 



DO = S N 



OPERATOR 
ASSIGNMENT 



OPERAND = 
KEYWORD = 

INOUT = : 
IOLIST = ; 
SYNTAX END 



r 



) 
> 



" 'CONTINUE' 'STOP' 'READ' INOUT 
•WRITE 1 INOUT 'END 1 $300 " 
*30 '(' *27 K $105 *12 '>' *58 IOLIST 
( '.' / N ...) 



Error Messages Used in the Subset Definition 



Message Code 
3 

7 
12 
27 

30 
55 
58 



h 



Message Text 
Unrecognizable Stmnt or Misspelled Keywd 
Unsigned Integer Expected 
Expression Expected 
) Expected 

Data Set Ref Number Expected 
( Expected 

Operand Expected in Arith Expression 
I/O List Item Expected 



Action Codes Used in the Subset Definition 

Code Action 

100 produces T if the preceding K operator was satisfied by a nonzero 

integer constant. Otherwise, when a commit is in effect a message 

"nonzero integer expected" is issued, but when a commit is not in 

effect an F is produced. 
105 similar to 100, but the constant must be in the range 1-99 inclusive 

and the message is "data set ref number expected". 
300 produces T if label and continuation fields are blank. Otherwise, 

when a commit is in effect a message "END requires blank label & 

contin fields" is issued, but when a commit is not in effect an F is 

produced. 

i . . . 

Figure 2. Metalanguage Definition of a FORTRAN Subset 



fourth alternative, which again describes 
assignment statements, is tried. The 
fourth alternative uses the N operator, 
since the fourth alternative cannot be 
reached if the statement is a valid keyword 
statement. 

The line labeled DO is nested to after 
the source pointer has been advanced past 
"DO" in the source, and therefore describes 
the syntax of a DO statement to the right 
of the "DO". The sequence 

-OPERATOR K $100 

is used to describe the DO parameters. The 
minus reference to OPERATOR fails if an 
operator precedes one of the parameters. 
The K advances the source pointer beyond 
the parameter, and then action code 100 
fails unless the parameter was a nonzero 



integer. As explained previously, until 
the comma after the first parameter is 
found, the statement could be an assignment 
statement beginning with "DO". So the 
commit on DO must be after the literal 
which advances the source pointer past that 
comma. The third parameter of a DO 
statement is optional and is therefore 
enclosed in parentheses. If, however, a 
comma appears after the second parameter, 
the third parameter is required. The 
commit after the literal comma in the 
parentheses reflects this fact. 

OPERATOR is a passive line describing 
all the arithmetic operators in FORTRAN. 
It illustrates the general principle that 
if the same source characters could match 
more than one of a table's literals, the 
longer literal must appear first in the 
table. In this instance, both the '*' and 
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the •**• in the table would match two 
asterisks in the source. If the •*• 
appeared first in the table, it would 
advance the source pointer beyond one of 
the two asterisks in the source, leaving 
the other one available. It would never be 
possible for • **■■ to succeed if •*■ 
appeared first. 

The order of the alternatives on the 
first syntactic line permits a statement 
commit in ASSIGNMENT if an equals sign is 
the first available source character when 
the scan nests to ASSIGNMENT. The 
remaining source must satisfy EXPRESSION, 
or the checker will issue message 7. An 
EXPRESSION is defined as an optional plus 
or minus sign followed by at least one 
OPERAND. This may optionally be followed 
by any number of OPERATOR OPERAND pairs , 
with the presence of an operator requiring 
an operand. Message 55 is in effect all 
during this indefinite iteration to 
diagnose the absence of an OPERAND after an 
OPERATOR. An OPERAND is either a name, a 
numeric constant, or an expression enclosed 
in parentheses. In the last case, OPERAND 
nests to EXPRESSION, and then EXPRESSION 
nests again to OPERAND as many times as 
required to advance the source pointer 
beyond the expression in the parentheses, 
finally unnesting back to OPERAND to 
advance the source pointer beyond the 
matching right parenthesis in the source. 
At any of these nestings another left 
parenthesis may cause the process to be 
repeated. Even though EXPRESSION is, in 
this process, indirectly referring to 
itself, no difficulty arises. A line may 
directly or indirectly refer to itself 
because 1) the syntax table is not modified 
in any way as it is scanned, and 2) the 
processing required in these 
"self -nestings" is exactly the same as that 
for any nesting. 

KEYWORD is a passive line with literals 
for all of the subset's keywords. If the 
statement is a STOP or CONTINUE, the plus 
reference to KEYWORD produces a T in the 
third alternative of SUBSET, causing 
checking to terminate with no message 
except, possibly, an "invalid or excess 
source characters" message. If the first 
source characters are READ or WRITE, 
nesting to INOUT occurs, reflecting the 
fact that the syntax for these statements 
is identical after the keyword. In the 
case of END, action code 300 fails if the 
END statement was labeled with a number, 
since labeled END statements are not 
permitted in FORTRAN. 

INOUT describes input/output statements 
to the right of their keywords in a 
straightforward way. Action code 105 
checks the data set reference number for 
proper range. Message 58 is in effect all 



during the scanning of IOLIST since no 
message is defined in IOLIST. The 
input/output lists consist of at least one 
name, optionally followed by any number of 
names separated by commas. 



Translation from the Metalanguage to 
Assembler Language 



With one exception, namely, the equals 
sign separating a line's name from its 
definition portion, every element in a 
metalanguage syntactic line has an 
equivalent in the assembler language coding 
of the syntax table. The name portion of a 
syntactic line is translated to: 

symbol EQU * 

The symbol naming conventions are explained 
in "Symbol Conventions." All the elements 
in the definition portion of the syntactic 
line are translated. Some elements are 
represented by just a one-byte code; other 
elements are represented by a one-byte code 
followed by one or more parameters. These 
parameters can be displacements (pointers 
to other elements in the current syntactic 
line or to other syntactic lines), length 
factors, literals, etc. The translation 
formula for each of the elements is 
contained in Table 1, Metalanguage Elements 
and Assembler Language Equivalents. 
Appendix C illustrates the translation of a 
sample metalanguage definition. The 
translation formulas follow symbol and 
displacement conventions, which should be 
understood before using Table 1 to perform 
a translation from the metalanguage to 
assembler language. 



Symbol Conventions 



Within the assembler language coding of 
the IPDTEE and IPDAGH modules, nine types 
of symbols are used. The first type of 
symbol is the label assigned to the control 
section. This label is the name specified 
as the active line name written after 
SYNTAX in the first statement in the 
meta- language definition. This active line 
name is also used as the operand of each 
module's END instruction. 

The remaining eight types of symbols are 
distinguished by their first three 
characters, which may be any of the 
following: LIN, BRC, PAR, ALT, TAB, COD, 
ACT, and DEF. The symbols starting with 
LIN, BRC, PAR, ALT, and TAB have their 
three- character mnemonic followed by a 
five-digit numeric, which starts at 00001 
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and which is incremented by one when a 
unique symbol of the particular type is 
needed. For each syntactic line (both 
active and passive) in the definition, 
there is a LIN symbol, which is used in the 
coding every time that the syntactic line 
is referenced. The LIN symbol is created 
the first time a reference is made to a 
syntactic line, whether it be on the right 
or the left side of a syntactic line 1 s 
equal sign. The label LIN00001 is assigned 
to the assembler coding for the first 
syntactic line to be used when source 
statement scanning begins. 

There is a BRC symbol for each right 
brace, >, in the definition. Each time a 
left brace, <, is encountered, a BRC symbol 
is created for the corresponding right 
brace. 

There is a PAR symbol for each right 
parenthesis, ) | in the definition. Each 
time a left parenthesis, (, is encountered, 
a PAR symbol is created for the 
corresponding right parenthesis. 

There is an ALT symbol for each 
alternate operator, | , and for each right 
brace in the definition. Each time a left 
brace is encountered, an ALT symbol is 
created for the first alternate operator. 
Each time an alternate operator is 
encountered, an ALT symbol is created for 
the next alternate operator, or, if there 
is no next alternate operator, for the 
right brace which ends the series of 
alternatives. 

There is a TAB symbol for each passive 
line (table line) in the definition. The 
TAB symbol is the label of the byte that 
contains the length of the longest literal 
in the passive line. 

The COD and ACT mnemonics are followed 
by a three-digit numeric. There is a COD 
symbol for each unique error code, *n, and 
an ACT symbol for each unique action code, 
$n, used in the definition. 

There is a DEF symbol defined for each 
of the metalanguage operators and for the 
end-of-syntactic line indicator. Following 
the characters DEF there are a maximum of 
five characters used to specify particular 
operators, for example, DEFITDEF specifies 
the definite iteration operator and DEFEND 
specifies the end of a syntactic line. 



All the COD, ACT, and DEF symbols are 
defined in a series of EQU 1 s following the 
last metalanguage statement, SYNTAX END. 



Displacement Conventions 



The syntax tables contain two types of 
displacements s 



1. one-byte displacements, which are 
calculated from the start of a 
syntactic line. 

2. two- byte displacements, which are 
calculated from the start of the 
syntax definition table. 

The following are the conditions under 
which one-byte displacements occur: 

1. Each time a left brace is encountered 
in a syntactic line, a "false" 
displacement is constructed to the 
first alternate operator in the series 
of alternatives and a "true" 
displacement is constructed to the 
associated right brace. 

2. Each time an alternate operator is 
encountered, there is constructed a 
displacement to the next alternate 
operator or to the right brace which 
ends this series of alternatives. 

3. Each time a left parenthesis is 
encountered, a displacement to the 
associated right parenthesis is 
constructed. 

The following are the conditions under 
which two- byte displacements are 
constructed: 

1. At the start of the table, there is a 
displacement to the first syntactic 
line to be used by the checker when 
scanning FORTRAN source statements. 

2. Each time a reference within a 
syntactic line is made to another 
syntactic line, a displacement to the 
start of the definition portion of the 
referenced line is constructed. 



J2A 



Table 1. Metalanguage Elements and Assembler Language Equivalents (Part 1 of 6) 



Metalanguage Element 



j System/360 j DEF 
| Assembler Language | Symbol 
j Equivalent | Value 



I. Elements used in definition portion of syntactic lines. 



Left brace; indicates the start of a series of 
alternatives • 



DC AL1 (DEFLBRCE) 

DC AL1 

( ALTxxxxx-LINxxxxx) 

DC AL1 

( BRCxxxxx- L INxxxxx ) 



DEFLBRCE= 
X 1 00 1 



Right brace; indicates the end of a series of 
alternatives • 



ALTxxxxx EQU * 
BRCxxxxx DC 
ALKDEFRBRCE) 



DEFRBRCE= 
X , 02 l 



Or; separates the alternatives in a series of 
alternatives within braces. The | can be used only 
within braces. 



ALTxxxxx DC 

ALKDEF0R) 

DC AL1 

( ALTxxxxx-LINxxxxx ) 



DEFOR= 
X'O** 1 



Left parenthesis; indicates the start of a series of 
optional items. 



DC ALKDEFOPTST) 

DC AL1 

( PARxxxxx-LINxxxxx) 



DEFOPTST= 
X 1 06 1 



PARxxxxx DC 
ALKDEFOPTED) 



DEF0PTED= 
X' 08 1 



Right parenthesis; indicates the end of a series of 
optional items. 



If the source satisfies the definition within parentheses, source statement scanning 
continues with the first available source character after the last source character 
used to fulfill the definition. Normally, once the source fails to satisfy the 
parenthetical definition, no error is recorded but source scanning backs up to the 
first source character tested for the parenthetical definition. However, the 
appearance of the / or : operator (see subsequent descriptions) within parentheses 
signifies that the definition is committed; i.e., the definition is no longer 
optional at this point, and, any subsequent failure to satisfy the parenthetical 
definition constitutes an error in the source statement. 



Indefinite iteration; represents iteration that has no 
upper or lower limit. The iteration must be specified 
within parentheses and it starts with the element 
following the left parenthesis. The elements 
preceding the periods may appear one time, many times, 
or not at all. 



DC ALKDEFITIND) 



DEFITIND= 
X'OE' 



«n. 



DC ALKDEFITDEF) 
DC ALl(n) 



DEFITDEF= 
X'lO 1 



Definite iteration; represents iteration with an upper 
limit of n. The iteration must be specified within 
parentheses and the iteration starts with the element 
following the left parenthesis. The set of elements 
preceding .n. may appear up to a maximum of n times 
or not at all. A maximum of 255 may be specified for 
n. 
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Table 1. Metalanguage Elements and Assembler Language Equivalents (Part 2 of 6) 



I. Elements used in definition portion of syntactic lines, 
h 



Metalanguage Element 



- T 1 

| System/360 

j Assembler Language 

I Equivalent 



I 



DEF 
Symbol 
Value 



/ 



Local commit; commits the checker to a particular 
alternative or optional definition during the time 
this operator is in effect. (A diagnostic is issued 
if a committed definition is not satisfied* ) If the / 
operator is enclosed within < > or ( ) f whether on its 
own line or at an earlier syntactic line, the 
commitment remains in effect from the time the / 
operator is encountered until the time its closing > 
or ) is encountered. 



DC ALKDEFCOMIT) 



DEFCOMIT= | 
X 1 0A 1 



DC ALKDEFSTCMT) 



h 



Statement commit; essentially, this operator is a 
request to disregard alternatives. If the : operator 
is encountered, any future failure in any < > or ( ) 
enclosing the : on this line will cause a diagnostic 
condition regardless of alternatives at a higher 
level. In fact, alternatives at higher levels are 
never examined during the remainder of the statements 
checking. If the : operator is encountered in an 
alternative, any subsequent alternatives in that 
series of alternatives are ignored. 



DEFSTCMT= | 
X'OC 



active line name to the right of a syntactic line' s 
equal sign. 

Symbol; implies nesting to the named syntactic line. 
The effect, except for error messages, is the same as 
if the entire definition portion of the named line 
appeared where its name appears. (For error message 
handling with nested syntactic lines see "Explicit 
Messages" • ) 



DC ALKDEFSYMBL) 

DC AL2 

( LINxxxxx- definition 

name) 



DEFSYMBL= | 



M 



DC ALKDEFMNAME) 



DEFMNAME= | 
X'14' 



Maybe-name; defines a FORTRAN variable name, which 
consists of from one through six characters, the first 
of which is alphabetic. If the first character is not 
alphabetic, or if more than five successive alphameric 
characters follow the first alphabetic in the source, 
the M operator fails. 



DC ALKDEFNAME) 



DEFNAME= 
X'16* 



Name; defines a FORTRAN variable name. The N operator 
differs from the M operator in that the N operator is 
satisfied by any length alphameric string whose first 
character is alphabetic; however, a "name" longer than 
six characters is diagnosed by an implicit error 
message in the N operator routine. (Source scanning 
resumes at the first non- alphameric character. ) 



DC ALKDEFLETTR) 



DEFLETTR= | 
X'18 1 



Letter; defines a single alphabetic character (* A* 
through 'Z' or •$•). 
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Table 1. Metalanguage Elements and Assembler Language Equivalents (Part 3 of 6) 

r . . T __ . T 

| System/360 j DEF 
j Assembler Language | Symbol 
Metalanguage Element j Equivalent | Value 
|. . x ± 

Elements used in definition portion of syntactic lines. 
|. T T _ < 



D jDC ALKDEFDIGIT) | DEFDIGIT= 

| |X» 1A 1 
Digit; defines a single decimal digit CO' : through j | 
•9 1 ). | | 

+ + 

A j DC ALl(DEFALMER) | DEFALMER= 

| IX'IC 1 
Alphameric; defines a single alphameric character ("A 1 j 1 
through " Z', '$" # or ' 0" through '9'). | | 

-4- 4- 


T T 

K |DC ALKDEFNUMBR) | DEFNUMBR= 

j |X« IE' 
Numeric constant; defines either a real constant or an| | 
integer constant. The format of these constants is j | 
exactly the same as described in IBM System/360 and | I 
System/370 FORTRAN IV Lanquaqe. Order NO.GC28-6515. | I 

+ + 


S |DC ALKDEFSTNUM) | DEFSTNUM= 

| |X"20' 
Statement number; defines a number that consists of at j | 
least one non-zero digit , followed by a maximum of j | 
four more digits. Optionally, the statement number | | 
may have any number of leading zeros. | | 

+ : _ + 

H JDC ALKDEFHOLLR) | DEFHOLLR= 

| |X'22' 
wH- literal; defines a character string that is | | 
preceded by wH where w is the number of characters in | | 
the string (leading zeros are permitted in w). If the j j 
wH form is recognized, but w is not within the range j | 
of 1 through 255, an error message is printed. j | 

._ , _ ± J._ 


— _ — — - — *~, — _ — — — .j. -j— 

C |DC ALKDEFCSTRG) |DEFCSTRG= 

| IX'24' 
Character string; defines a character string enclosed j | 
by quotes. The string can have a maximum of 255 | j 
characters. Character string scanning is terminated j | 
when 256 source characters have been examined and a j | 
terminating quote is not found. An error message is j | 
printed, and statement checking is terminated. | | 
+ _ + 

•aa. ..a 1 : |DC AL1 ( DEFQUOTE ) | DEFQUOTE= 

|DC AL1 (length of |X' 26" 
Literal; defines a literal value expected in the jaa. ..a) | 
source statement. |DC C s aa...a* : | 

i i 


n • aa. . . a 1 : | DC AL1 (DEFNOTQT) | DEFNOTQT= 

|DC AL1 (length of |X' 28 1 
Not literal; defines a literal value that is not valid jaa. . • a) | 
in the source statement, i.e., source unequal to jDC C'aa...a s : | 
literal satisfies the definition. i . | j 



(. . 



X . — 



jl: »„ 



A quote and an ampersand within a literal must be represented by two single quotes 
arid two ampersands, respectively. In determining the length of the literal, two 
quotes or two ampersands count only as a single character. A blank anywhere in a 
literal always causes a non-match with the source statements 
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Table 1. Metalanguage Elements and Assembler Language Equivalents (Part 4 of 6) 



Metalanguage Element 



~T T 

| System/360 | DEF 
| Assembler Language | Symbol 
| Equivalent | Value 



Elements used in definition portion of syntactic lines. 



"T 

j DEFSCAN= 
|X' 2A' 



Sa 



Scan a; represents a search of the source statement 
for the character represented by a. The search 
succeeds if the character is found. 



JDC ALKDEFSCAN) 
| DC C'a 1 



I 



H 



St a 



Scan not a; represents a search of the source 
statement for the character represented by a. The 
search succeeds if the character is not found. 



| DC ALKDEFSCNOT) 
|DC C a* : 

I 



I 



|DEFSCNOT=| 
|X« 2C« 

I 



The search starts at the next source character to be examined and continues until 
the character sought is found or the end of the statement is reached. After the 
search is completed, source scanning resumes at the character at which the search 
was started. The character sought can not be a blank. 



$n 



Action; executes the action routine represented by the 
code n. (n is a maximum of 999, but no more than 128 
different action codes may be defined. ) The routine 
is executed immediately when the code is encountered. 
Action routines perform specialized checking that is 
not done by the operators. 



DC ALKDEFACTN) 
DC ALKACTn) 



DEFACTN= 
X^E 1 



*n 



DC ALKDEFMESSG) 
DC ALKCODn) 



DEFMESSG= | 

x 1 30 1 : 



Error code; defines an error message that is to be 
printed if an error occurs when checking subsequent 
fields in the syntactic line. If the checking of a 
subsequent field involves nesting to another syntactic 
line for which there is an error code, say nl f and an 
error occurs on a committed definition in this second 
line, the error message represented by code nl is 
printed. There may be more than one error code 
specified per syntactic line but only one code is in 
effect on that line at any one time, and that code is 
the last one encountered as the checker proceeds along 
the syntactic line. The error code n, which is 1, 2, 
or 3 digits, is specified as follows: 

odd number - error terminates source statement 
scanning; 

even number - error does not terminate source 
scanning. 

For each error message there are two codes; that is, 2 
and 3 represent one message, 4 and 5 another message, 
etc. The allowable range for code numbering is 2 to 
255, which provides a maximum of 127 unique messages. 



+table-name (referred to as +passive line name in the 
previous metalanguage descriptions) 



Search table: 
literals. 



causes a search on a series of 



DC ALl(DEFTABLP) 
DC AL2 

(LINxxxxx-definition 
name) 



DEFTABLP= | 
X 1 32 1 : 



2U 



Table 1. Metalanguage Elements and Assembler Language Equivalents (Part 5 of 6) 

r : T T 

j System/360 j DEF 
j Assembler Language | Symbol 
Metalanguage Element | Equivalent | Value 

^ x j. ^ 

| I. Elements used in definition portion of syntactic lines. 

,. T T ^ 



-table-name (or -passive line name) 


DC ALKDEFTABLM) 


DEFTABLM= 




DC AL2 


IX'34 1 


Search not table; causes a search on a series of 


( LINxxxxx- definition 




literals none of which should appear in the source. 


name) 




Passive line name is the name of the passive syntactic 






line that defines the table of alternatives. 




i. 








r 


n « 


DC ALKDEFTABLE) 


DEFTABLE= 


$n 


DC AL2 


|X« 40 • 


"aa...a l symbolic-name ••« 


( TABxxxxx- *+l ) 




+table-name 


DC AL1 (length of 




-table-name 


aa. • • a) 

DC C aa. . .a 1 




Table definition; surrounds the string of table 


DC ALK symbol 1) 




arguments and functions. A table argument must be a 






literal of the form ' aa...a". A table function 


DC X"FF' for a func- 




can be one of the following: 


DC C 1 T 1 : tion of 




representing a return to the syntactic line without 


or 




further action or checking. 


DC ALKACTn) for 
DC C 1 T 1 : $n 




$n representing an action code. The action specified 


or 




is performed before returning to the syntactic line. 


DC AL2( symbol 2) 




symbolic-name representing nesting to another 


otherwise 




syntactic line. 


repeat pre- 








vious DC 1 s 




+ table- name or -table-name representing a search of 




(except for 




another table of alternative literals. 




, first two) 

for each pair 




If the table is being searched because of the 




, of table ar- 




-table-name operator, table functions will always be 




guments and 




ignored. 




► functions 






TABxxxxx DC ALl 






(length of longest 






literal) 






where 






symbol 1 






=DEFACTN for 






or $n 






=DEFSYMBL for 






symbolic -name 






=DEFTABLP for 






+table-name 






=DEFTABLM for 






-table -name 






symbol 2 






=LINxxxxx- 






definition-name 





L X . J 



J 
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Table 1. Metalanguage Elements and Assembler Language Equivalents (Part 6 of 6) 



Metalanguage Element 



j System/360 j DEF 
(Assembler Language | Symbol 
j Equivalent | Value 



II. Other Metalanguage Elements 



symbolic name to the left of a syntactic line' s 
equal sign 

Line name; indicates the start of a syntactic line, 
and provides a name which may be used in other 
lines to refer to it. 



JLINxxxxx EQU * 



I 



End; indicates the end of a syntactic line. There is JDC ALK DEFEND) 
no corresponding operator in the met a- language. This j 
DC is to be coded at the end of each syntactic line toj 
indicate its end to the syntax checker. j 

. . : . X 



| DEFEND= 

|X'36' 

I 

I 

-X 



SYNTAX CHECKER ENVIRONMENTAL INTERFACE 



All communication between the syntax 
checker and its environment is handled by 
the executive segment (IPDSNEXC) of the 
IPDSN module. Input to IPDSNEXC from the 
environmental system consists of a pointer 
in register 1 to a parameter list with the 
format : 



DC A (1st buffer in chain) 
DC A (communications area) 
DC X^O 1 (this byte is not tested by 

the syntax checker) 
DC AL3 (options word) 



Buffer Chain 



The first entry in the parameter list 
contains the address of the first buffer in 
a chain of one or more buffers. 



!• Format : The format of the buffer 

chain varies according to the type of 
records it contains. There are two 
types of records: fixed and variable 
length. 



For fixed length records, a buffer in 
the chain has the following format: 



r~T T ■ T T 

| | | records | record 2 | « • . 

I C j chain address j- T + '■ — t — - — +~ 

|| | | line | | line | 
| | ItextilnCaJtextalno. 2 | 
l_x x x x x x 

1 4 



2L+4 



where ; 



L+4 



r — i 

| record | 

i. _„ T ^ 

I text | line no. | 

l . x J 

(C-l) L+4 CL+4 



= low order seven bits 

specify number of records 
in the buffer; bit is set 
to 1 by the syntax checker 
when the buffer has been 
processed and should be 
released by the calling 
program. 



chain address = 



record 



text 



address of the next buffer; 
the last buffer in the 
chain has this field set to 
binary zeroes. 



= text and line no. 

= columns 1-72 (TSO) or 
columns 1-80 (CRJE) of a 
FORTRAN line. However, in 
both TSO and CRJE, only 
columns 1-72 are syntax 
checked, since columns 
73-80 in CRJE are reserved 
for sequence numbers. 
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line no. 



CL+4 



= data set line number. 
There are always 8 bytes 
present for the line number 
field even though they are 
meaningless if the options 
word, byte 3, bit 1=1. 

= length of each record (80 
or 88 bytes) 

= length of buffer (relative 
address of first byte 
beyond buffer. ) 



For variable length records, a buffer in 
the chain has the following format: 

r _ 7 T T 

|| | record^ |... 
| | j. T T + 

|C|chain address | | binary | | 
|| | L ± | zeros | data ± j 
l_x j. x x j. 

1 4 6 8 



r 1 

| record | 

j. T _ T 4 

I I binary | | 
| L | zeros | data | 
l x x J 



where : 

C and chain address are defined as for a 
buffer with fixed length records. 

record = record length (L), two 

bytes of binary zeros, and 
data. 

Li = the length of the ith 

record. This is a signed 
binary number. The sign 
(leftmost) bit must be 
positive (a binary zero). 

data = (a) line-numbered data set 

(options word, byte 3, 
bit 1=0) : 8-bytes for 
a line number followed 
by text consisting of 
the characters to be 
syntax checked. 

(b) not a line-numbered 

data set (options word, 
byte 3, bit 1=1): text 
consisting of the 
characters to be syntax 
checked. 

2 « Text For mat : Buffer chains of fixed 
length records may contain either 



standard-form or free-form FORTRAN 
source text. Buffer chains of 
variable length records may contain 
only free-form FORTRAN source text. 



Standard- form FORTRAN statements 
(specified by options word, byte 3, bit 
5=0) are in EBCDIC and in the form required 
by the E, G, Gl, and H level FORTRAN 
compilers. Any variations in the format 
permitted to the terminal user (e.g., the 
use of a hyphen for a continuation symbol 
or the absence of a continuation symbol in 
column 6) will have been translated into 
standard FORTRAN format by CRJE or TSO 
before control is given to the syntax 
checker. Standard FORTRAN statement format 
is described in IBM System/360 and 
System/370 FORTRAN IV Language , Order 
No. GC28-6515. 

Free-form FORTRAN statements (as 
currently defined for Code and Go FORTRAN) 
are described in Appendix B. If free- form 
is specified (options word, byte 3, bit 
5=1) , no distinction is made between upper 
and lower-case alphabetic characters for 
the scan. However, with the exception of 
the character that indicates a line is 
continued, any character in the text 
portion of the record is considered part of 
the FORTRAN statement to be scanned. It is 
assumed that such characters as tab, 
backspace, and carriage-return will have 
been removed before the record reaches the 
checker for, scanning. 

The maximum length of a FORTRAN 
statement is 1320 characters, in both 
free-form and standard- form. The checker 
will scan up to 20 lines per statement in 
either form. (Statement length excludes 
the statement number and continuation 
fields.) All statements in a buffer, 
except perhaps the last, are checked 
without returning to the calling program 
unless an error is encountered. Whether or 
not the last statement (assuming no 
previous errors) is checked before 
returning depends upon the following 
considerations. If buffer chain span mode 
is not specified (options word, byte 3, bit 
3=0), the last statement is considered a 
complete statement and is scanned before 
returning. For buffer chain span mode 
(options word, byte 3, bit 3=1) and if the 
input is standard-form, the last statement 
of the current buffer chain is assumed 
continued in the next buffer chain; the 
statement (or partial statement) is not 
scanned until the next call to the checker* 
For buffer chain span mode and free-form 
FORTRAN input, if the last line of the last 
statement is a continued line, the 
statement is not scanned until the next 
call to the checker; otherwise, the 
statement is checked before returning. 
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Communication Area 



The second entry in the parameter list 
points to a communications area which 
contains four words. The first word of the 
communications area contains information to 
control the checker's working storage 
requests and statement scanning. The 
second word contains the address of the 
text of an error message sent by checker to 
the calling program. The third and fourth 
words are used as temporary storage areas. 



Word 1 

Byte bits 0-3 (X means either a or a 1) 

OXXX initial entry. Obtain and 

initialize work area and load 
FORTRAN definition tables 
specified in byte 1 of the 
options word. After the work 
area has been initialized, set 
relative line number to zero 
and perform syntax checking of 
input. ( However , if the 
buffer address in the 
parameter list is zero, as it 
may be on the call to the 
syntax checker by CRJE at CRJE 
startup time, perform no 
syntax checking. ) 

1X1X last entry. Do not syntax 
check but release the work 
area and return. 

1000 intermediate entry after 
return code or 1. 
Reinitialize relative line 
number to zero and perform 
syntax checking for the new 
input buffer(s). (Work area 
exists. ) 

11 OX intermediate entry after 
return code 8 (see error 
messages description). 
Continue checking the contents 
of the buffer (s), 

1001 intermediate entry after 
return code 12. Register 1 
points to the parameter list, 
the first word of which is: 

DC A(0)- no further buffer 
chains; check last 
statement of previous 
buffer chain as is. 

DC A (1st buffer in next 

chain)- (previous 
buffer should have 
been released, ) 
Perform syntax 



Bytes 



checking on last 
statement of previous 
buffer chain (source 
has been saved in 
work area) and on 
statements of this 
next buffer chain. 



bits 4-7 reserved for future use. 



1-3 address of the work area is 
stored here by the checker on 
first entry for use in subsequent 
entries. 



Word 2 



Address of the error message. The 
format of the error message is described in 
the section on output. 



Words 3 and 4 



Temporary storage area used by the 
checker when it issues a GETMAIN for 
working storage. 



Options Word 



The last entry in the parameter list 
contains the address of an options word, 
which is formatted as follows: 

Byte contains a code indicating the level 
of the FORTRAN language to be used 
in scanning. 



Code 


Level 


X^O 1 


FORTRAN H 


X'Ol* 


FORTRAN E 


X'02" 


FORTRAN G 


X^OS" 


Code and Go FORTRAN 


X'04" 


FORTRAN Gl 



Levels G, Gl, H, and Code and Go accept 
the full FORTRAN IV language, while level E 
accepts only the basic subset of the 
FORTRAN IV language. Levels G, Gl, and 
Code and Go accept DEBUG language 
statements. At the first release of TSO, 
list- directed I/O will be supported by the 
Gl level making it identical to the Code 
and Go FORTRAN level. In all the levels, 
FORTRAN keywords may be used as variable 
names and blanks may appear anywhere in the 
source statement. (Note: FORTRAN E 
compiler has this as an option. ) 
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Byte 1 bits 0-5 reserved for future use. 

bit 6=1 FORTRAN G/Gl/H/Code and Go 
definition is loaded on an 
initial entry. 

bit 6=0 FORTRAN G/Gl/H/Code and Go 
definition is not loaded on 
an initial entry. 

bit 7=1 FORTRAN E definition is 

loaded on an initial entry. 

bit 7=0 FORTRAN E definition is not 
loaded on an initial entry. 

Byte 2 record length: If fixed length 

records, this is 80 bytes for TSO 
and 88 bytes for CRJE. This field 
is not used with variable length 
records. 

Byte 3 bit reserved for future use 

bit 1=0 line numbered data set (line 
number should appear in 
error message) 

bit 1=1 no line numbers 

bit 2 not used by FORTRAN syntax 
checker 

bit 3=0 scan current buffer chain as 
containing complete 
statements; i.e. f do not 
issue return code 12. 
(Buffer chain span bit off) 

bit 3=1 return to calling program 

with return code 12 if last 
statement in input buffer 
chain is or may be 
incomplete. (Buffer chain 
span bit on) 

bit 4=0 fixed length records 

bit 4=1 variable length records 

bit 5=0 standard-form source 

bit 5=1 free- form source 

bits 6-7 not used by FORTRAN syntax 
checker 



Output 



Error Messages 



Each statement is classified according 
to type, either keyword or assignment, and 
then scanned for errors. Checking 



continues after an error is found if it is 
very probable that the error does not 
affect the scan of the remainder of the 
statement. For example, scanning would be 
resumed if an invalid statement label is 
found. 

When an error is found, a return code in 
register 15 and a diagnostic message, whose 
address is in the communications area, are 
passed to the CRJE or TSO calling program. 
The return code indicates whether all 
statements in the input buffer chain have 
been completely checked. If the buffer has 
not been completely checked (return 
code=8), the environmental system will 
return to the syntax checker indicating 
this situation via the information in the 
communications area. If the buffer has 
been completely checked (return code=4), 
the next call to the syntax checker will be 
to scan a new input buffer, or if no 
statements remain to be scanned, to release 
working storage. The error message area is 
72 bytes long. Error messages contain the 
following fields in left-to- right orders 

1. The six-character message 
identification code followed by two 
blanks. 

2. The line identifier of the line that 
contained the error, followed by one 
blank. 

a. Line Numbered Data Sets (options 
word, byte 3, bit 1=0): The line 
identifier is the last eight 
characters of the record that 
contained the error, except that 
if these characters contain 
leading blanks and/or zeros, the 
line identifier is shortened to 
exclude as many as seven of them, 

b. Data Sets with No Line Numbers 
(options word, byte 3, bit 1=1) : 
The line identifier is one to 
eight digits, representing the 
relative position of the erroneous 
line within the buffer chains 
received from the calling programs 
since the last initial entry or 
intermediate entry after return 
code or 4. 

3. Optionally, six source statement 
characters followed by a blank. This 
field will not be present if the end 
of a source statement had been reached 
when the error was detected. 
Otherwise, the six source characters 
will be a nonblank character 
indicating the location of the error, 
and the five characters (including 
blank characters) immediately 
following it in the source statement 
line. If there are fewer than six 
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characters remaining in the statement/ 
field of the line, the six-character 
field is padded with trailing blanks. 

4. The text of the diagnostic. 

5. Sufficient blanks to fill the 
remainder of the message buffer. 



Return Codes 



When the syntax checker returns to the 
calling program, a return code is set in 
register 15 to indicate the status of the 
checker. The values of the return code are 
summarized in Table 2. The only case in 
which a return code has no significance is 
on return from a "last entry" call by the 
environmental system to free the work area. 
Return codes 4 and 8 are described above 
under "Error Messages. " 

On syntax checker return to the calling 
program, a return code of indicates no 
error message and completed buffer 
checking. The next call to the checker 
will be for the purpose of scanning a new 
set of FORTRAN statements or to release the 
working storage area. 

On syntax checker return to the calling 
program, a return code of 12 indicates the 
interface has specified buffer chain span 
mode (options word, byte 3, bit 3=1) and 
the last statement of the buffer chain is 
or may be incomplete. The next call to the 
checker will provide the next buffer chain 
for continuing the checker's processing, 
the scan to begin with the last statement 
of the previous buffer. 



definition tables, to scan through input 
buffers in order to construct a character 
string of FORTRAN statement text, to call 
the checker for syntax checking, to call 
the error processor for the construction of 
ail error messages, and to set up proper 
returns as shown in Table 2, to the system 
calling the syntax checker. 



Table 



Return 
Code 



2. 



Return Code Summary 



12 



16 



Meaning 



no error message to be sent, get 
more source input 



error message to be sent to ter- 
minal user, get more source input 



error message to be sent, call 
syntax checker module again with 
same buffer chain and • continue 
checking buffer contents 1 indi- 
cated (communications area word 1, 
byte 0, bits 0-3 set to • 110X' I 



H 



H 



no error message to be sent, last 
statement of buffer chain has been 
saved but not syntax- checked, it 
may be incomplete; call syntax 
checker module again with the 
address of the next buffer chain 
or a zero address indicating the 
statement saved is to be checked 
as is. 



conditional GETMAIN failure, not 
enough core storage available 



H 



20 | definition table requested by 

terminal user conflicts with the 
tables requested on initial entry 
(see the bit settings in bytes 
and 1 of the options word) 



THE IPDSN MODULE 



Module IPDSN, which is directed by the 
appropriate definition module, verifies the 
syntax of FORTRAN statements sent to it by 
I the environmental system (CRJE or TSO) . 
There are two segments, executive and 
checker. All entries and exits of the 
syntax checker from the environmental 
system go through the executive segment. 
Calls to the error message generator, 
IPDERERR, are also made only by the 
executive segment. 



EXECUTIVE (IPDSNEXC) 



The primary functions of the executive 
are to manage work areas and syntax 



The first word in the communications 
area indicates in bits 0-3 of the first 
byte whether the call to the syntax checker 
is a first, intermediate, or final call. 
On a first call , after obtaining the work 
area from subpool 1 via a GETMAIN, IPDSNEXC 
places the work area's address into bytes 
1-3 of the communication area's first word 
(If the required amount of working storage 
is unavailable, the return code of 16 is 
passed back to the system. ) The syntax 
definition table (s) requested by bits 6 and 
7 in the second byte of the options word 
are loaded using the OS LOAD macro; whether 
this table is brought in from disk or 
resides in the Link Pack Area does not 
affect the checker. The LOAD will ABEND if 
not enough core is available or if the 
table is not in the Link Pack Area or in 
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LINKLIB. Since CRJE uses the first entry 
call at startup time, any ABEND resulting 
from a table not being in LINKLIB will 
occur only then and not during a CRJE 
session. This error should occur only if 
the set of tables requested by the second 
byte of the options word does not 
correspond to the options specified in the 
system generation CHECKER macro. Also, if 
there is insufficient storage for the 
table(s), the LOAD results in an ABEND at 
startup time. 

In the TSO environment, any of these 
conditions will result in an ABEND during a 
user*s terminal session since an initial 
call to the syntax checker is made at the 
time of user request for FORTRAN syntax 
checking; only that user's task will ABEND. 

For interm ediate entries in the CRJE or 
TSO system, the syntax checker is called to 
perform processing for various users, who 
may require different language definition 
tables. On the final entry to the syntax 
checker a DELETE is executed for the syntax 
definition table(s). The work area is 
released using a FREEMAIN. When the syntax 
checker , returns from the final entry call, 
the return code setting has no 
significance. 

The executive collects lines of a 
FORTRAN statement from the input buffers 
and builds a character string in the work 
area consisting of the statement label and 
the statement (continuation symbols, if 
present, are not retained) • In addition to 
building the character string, the 
executive constructs a table (WKATINU) of 
displacements from the beginning of the 
character string and line numbers for the 
lines of the statement. The character 
string is used by the get-character 
routines. The WKATINU table is used by the 
executive in preparing input to IPDER. 

The environmental system may supply a 
buffer chain of FORTRAN source lines with 
the initial call? it is expected to supply 
a new buffer chain upon intermediate entry 
after return code or 4. For the above 
entries, the executive scans the buffer 
chain for the initial line of a source 
statement. During this scan, comment lines 
are ignored? continuation lines (which can 
only be recognized as such in standard-form 
source) cause the executive to send an 
error message to the system. When an 
initial line is found, the executive moves 
the source characters of that line into the 
character string, constructs an entry in 
the WKATINU table, and continues to collect 
continuation lines for the statement. The 
character string and WKATINU table are 
complete when the last line of the 
statement has been found. For 
standard-form source, the last line of a 



statement cannot be recognized as such 
until the initial line of the next 
statement is found. For free- form, the 
last line of a statement does not have the 
continuation symbol present in the last 
position of the line. 



If buffer chain span mode is specified 
(options word, byte 3, bit 3=1), the 
executive does not assume that a buffer 
chain contains complete statements, i.e. , 
that the end of the buffer chain coincides 
with the end of the last statement in the 
buffer chain. Rather, if the end of the 
buffer chain is reached before the 
statement 1 s last line is found, the 
executive will return to the environment 
with return code 12. The environmental 
system is expected to use the executive* s 
intermediate entry after return code 12 to 
supply a new buffer chain that will be 
treated as an extension of the previous 
buffer chain. The executive can then 
continue to collect lines of the last 
statement of the previous buffer chain. By 
specifying a buffer chain address of zero 
upon entry after return code 12, the 
environmental system can direct the 
executive to process the last statement of 
the previous buffer chain as complete. 

The excutive performs special processing 
while collecting the lines of a statement. 
A continuation indicator is saved for later 
use by the checker: the contents of column 
6 of the last line of a standard-form 
statement is saved; the continuation symbol 
of a free- form statement is saved, if 
present. The twenty-first line of a 
statement causes the executive to send a 
message to the system and to flush the 
remaining lines of the statement. For 
free-form source, no more than 1320 
characters plus the number of digits in the 
label if present (maximum of five) are 
moved into the character string; a longer 
statement is diagnosed as a syntax error. 
For standard-form source, the first 
embedded comment line within a statement 
causes the executive to send an error 
message to the system. 

When all the lines of a statement have 
been collected, the executive scans the 
statement label for errors; if a label is 
present, an indicator is set for later use 
in the checker. 

At this point, the source statement is 
ready to be sent on to the checker, 
IPDSNCKR. The executive calls this segment 
of the module as a subroutine with the 
standard OS linkage and register 1 pointing 
to a list of the following five parameters: 
the beginning source pointer, the end 
source pointer, the address of the language 
definition table needed, the address of the 
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work area obtained for checking, and the 
address of the options word. 



The checker returns to the executive 
when the source statement has been 
completely checked or each time an error is 
found. If the statement is completely 
checked and if there is no error message to 
be issued, the executive determines if 

| there is another record in the buffer 
chain. If there is not, the executive 
returns to the environmental system with a 
return code of zero, which is a request for 
a new buffer chain. If there is another 

I statement or beginning of a statement in 
the buffer, the executive calls the checker 
to scan the new statement. 



CHECKER (IPDSNCKR) 



The checker edits a FORTRAN statement 
(exclusive of the statement label 
previously checked by the executive) for 
syntactic errors by matching the source 
statement against a table that defines the 
syntax for FORTRAN IV statements. 



The metalanguage notation rather than 
its assembler language equivalent will be 
used to refer to the contents of the syntax 
definition table, e. g. , syntactic line 
(rather than table entry) , operator (rather 
than op-code) , alternatives, optional 
items, etc. 



If an error is found, the checker sets 
up an error message code, turns on a 
checker-detected-error switch (WKACERSW) , 
saves its own pointers for possible recall, 
and returns control to the executive. The 
executive calls the error processor, IPDER 
(entry point IPDERERR) , to construct the 
appropriate error message. Upon return 
from IPDER, the executive places the 
address of the error message into the 
second word of the communications area for 
the environmental system. Furthermore, the 
executive determines whether it will need a 
new buffer chain of source input. If 
further checking can be performed on the 
same statement (error code indicated a 
non- terminating error) , the executive will 
"save its place" and return to the 
environmental system with a return code of 
8. In that case, it is expected that the 
environmental system will recall the 
executive to "continue checking buffer 
contents," and the executive, in turn, will 
recall the checker (WKACERSW still on) to 
continue checking the statement diagnosed. 
If the executive determines that the error 
should terminate checking of the statement 
(the error code is terminating), it resets 
WKACERSW so that only a new statement can 
be checked by IPDSNCKR. Then it must 
examine its current buffer chain to 

I determine whether the chain may contain 
another statement to be checked. If there 

1 is another record in the current buffer 
chain, the executive again "saves its 
place" and returns to the environmental 
system with a return code of 8; if the 

| erroneous statement is at the end of the 
buffer chain, a return code of 4, which 
requests a new buffer chain, is passed to 
the environmental system. In either of 
these two cases, when the executive is 
recalled, it provides IPDSNCKR with a new 
statement to check. 



Calling Sequence 

LA 1,WKACKPRM 

L 15, =V( IPDSNCKR) 

BALR 14,15 

Where, in the work area acquired by the 
executive, there is: 

WKACKPRM DS OF 

DS A( First Source Character) 

DS A (Last Source Character) 

DS A(Definition Table) 

DS A (Work Area) 

DS A (Options Word) 



Operato r Interpre t ation 



The checker starts at the beginning of 
the syntax definition table, interprets the 
first operator, and branches to the routine 
associated with that operator. The path of 
checking to be followed for a particular 
statement is determined by this and 
subsequent operators. There are two types 
of operators, those that influence the path 
through the definition table as a function 
of the source, and those that do not. 
Among the operators in the first category 
are all those that test source characters 
and those that control the testing of 
optional or alternate items. In the second 
category are the operators that define a 
message code and cause nesting to another 
syntactic line. 
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Source Character Management 



The get-character routines are called to 
get the next n characters (CKRGTANY) or the 
next n nonblank character (s) 
(CKRGTNB1,CKRGTNBS). On return, those 
routines provide the source location of the 
first character supplied and the source 
location beyond the last character 
supplied, in addition to the characters 
themselves. If the characters obtained 
satisfy an operator, the checker updates 
the source pointer beyond the last 
character supplied. That value of the 
source pointer is now used the next time a 
get-character routine is called. However, 
if the characters do not satisfy the 
operator, the checker will not update the 
source pointer; the next time a 
get-character routine is called that source 
will be supplied again to be tested against 
an alternative definition. Figures 3 and 4 
illustrate scanning logic. 

In general, an operator that fails does 
not advance the source pointer. An 



exception is the not- literal i^ * aa. . . a' J 
operator which advances the source pointer 
beyond a character string that matches the 
literal and then fails. The name(N), 
numeric constant(K), and statement number 
(S) operators may be satisfied by, and 
advance the source pointer beyond an 
excessively long name or number, after 
diagnosing the error. 



If a definition that is committed (no 
alternatives allowed) fails to be 
satisfied, the checker returns control to 
the executive directing it to issue an 
error message. When applicable, the 
printed message indicates the point of 
failure by supplying a string of a maximum 
of 6 source characters. If the error is 
not terminating, the executive recalls the 
checker to continue checking source at the 
next available source character* If the 
error is terminating, no further checking 
of the statement is performed. The 
executive will call the checker again only 
if there is another statement to be 
processed. 
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Entry to scan 
a statement 



Initialize Source 

Pointer to 

column 7 of first 

line 



Initialize Definition 

Pointer to first 
operator in definition 




Perform 

• appropriate 

action 



Advance Definition 

Pointer to next 
alternative operator 



Yes 



Yes 





Yes 



Advance Source 

Pointer past 

character(s) which 

satisfy operator 



Advance Definition 
Pointer to next 
operator 




Return with 
an error message 



Normal return 



Figure 3. Flow of Source-Definition Scan 
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I = 



Column 7 
Source Pointer^ 



Column 72 



Source Pointer 6 
Source Pointer ± 2345 



SUBSET = *3< •DO" DO|M ASSIGNMENT | +KEYWORD | N ASSIGNMENT> 

etc. 



J 



Definition Pointer ± 
Definition Pointer a J 
Definition Pointer 3 — I 

Definition Pointer ^ 
Definition Pointer 



Definition Pointer 6 



Note : The pointer subscripts refer to the position of the pointer at the beginning of 
the corresponding step. 



Step 0. 

Step 1. 

Step 2. 

Step 3. 

Step 4. 

Step 5. 

Step 6. 



Beginning of scan. 
character f "I". 



The source pointer is advanced to the 1st nonblank 



Message "3" is established as the current message; the source is not 
tested and the source pointer is unaffected; the definition pointer is 
advanced to the "<" start-of -alter natives. 

A qualification entry is built and the definition pointer is advanced to 
the •DO 1 literal. 

Source "I" does not satisfy the 'DO* literal operator; the source pointer 
is not advanced but the definition pointer is skipped to the w | w operator. 

Because the literal operator in the first alternative was not satisfied, 
i.e., it produced an F f the definition pointer is advanced to the first 
operator of the second alternative, the W M" operator. 

Source "I" satisfies the w M n name operator; the source pointer is advanced 
to the "= w and the definition pointer is advanced to the "ASSIGNMENT" 
symbolic-line operator. 

Nesting to line ASSIGNMENT takes place: definition pointer is saved in 
the nest list, and the current definition pointer is reset to point to the 
first operator of the ASSIGNMENT line. 

L . . 

Figure 4. Example of Source- Definition Scan 
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NEST STACK 




Line Nest at 
WKALNEST 



© 






Pointer to 
next 

available 
nest slot 
(REGNSTPT) 



ii© 



Nesting 

When the symbolic name of 
another syntactic line is 
encountered in the definition, 
Q)the current line nest is 
pushed down, and 
@ a new nest is built for the 
line named. 



| REGNSTPT 



I REGNSTPT 



I 

SPACE AVAILABLE 



© 



Pointer 

to lltJXT 

available 
aualification 
slot j 
(REGQALPT) 



Current 
qualification 
at WKAQUALF 




© 



REGQALPT 



QUALIFICATION STACK 



Figure 5. Operation of the Pushdown Stacks 



Unnesting 

When the end-of-line operator 
is reached, 

Q) the previous line nest 
is popped up to become the^ 
current line nestagain 




When a ^ , left brace, or ( , 
left parenthesis, is encountered 
in the definition, 
@i the current qualification 
entry is .pushed down, and 
\5) a new qualification entry 
is built infhe current 
qualification slot. 

When a ^ , right brace, or ), 
right parenthesis, is reached. 
@ the previous qualification 
entry is popped up 
to become the current 
qualification entry again. 
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L ine Nesting 



The logic of the checker can be outlined 
in terms of definition lines and 
alternatives on those lines. A symbol 
encountered on the right side of a 
definition line that is itself defined on 
the left side of some other definition line 
causes "nesting" to that other line. When 
the operators on the line "nested to" have 
been satisfied, the checker "unnests" back 
up to the point immediately beyond the 
symbol that caused the nesting. Any number 
of levels of nesting may be required to 
match the source against a symbol: line 
"nested to" may cause nesting to another 
line, which in turn may also nest to some 
other line, etc. Recursive nesting, i.e., 
nesting to the same line, (whether directly 
or indirectly), is also a possibility. The 
nests are kept in a push down list in which 
the last entry made in the list is the 
first entry out of the list (LIFO). Refer 
to Figure 5 for a schematic diagram 
illustrating the nesting process. 



Qualification 



On any given line there may be 
alternative definitions and even 
definitions of items that are optional, but 
whose presence in the source statement must 
be recognized. For this discussion, a 
qualification is defined as all the 
operators enclosed in <> or (). A 
qualification enclosed in <> comprises a 
series of alternative definitions separated 
by the | operator and is therefore known as 
an alternative qualification. A 
qualification enclosed in ( ) is an optional 
definition, and is known as a parenthetical 
qualification. 



Qualifications of either type require 
information to be saved from the left 
qualification symbol to the corresponding 
right symbol. Since a qualification may be 
enclosed within any number of encompassing 
qualifications (on the same or on earlier 
lines), e.g., (<L|D>). Qualification 
information is also kept in a push down 
list (LIFO). The nest and qualification 
lists grow towards each other to optimize 
space availability. On encountering a < or 
( in the definition, the previous 
qualification entry is placed on the top of 
the qualification list ("pushed down") and 
a new qualification entry is built. when a 
> or ) is reached, a qualification entry is 
removed from the top of the list ("popped 
up") to replace the most recently built 
qualification entry. So long as <>s and 
()s are properly paired in the definition, 



a right qualification symbol will reference 
the information from its corresponding left 
qualification symbol. See Figure 5 for a 
schematic design illustrating how the 
qualification stack is used. 



Procedure 



When the checker gets control, it 
determines whether it is being called to 
start checking a new statement or to 
continue checking a statement in progress. 



Upon starting a new statement, source 
and table definition pointers are obtained 
from the parameter list, and work areas and 
switches are initialized. The top line of 
the definition is automatically committed 
(since there are no more alternatives). 



To start off the checking, the CKRSYNS, 
nest to symbolic line, operator routine 
(Chart 013) is given control to push down 
the nest information into its list, start 
the syntactic definition pointer at the top 
line, and set up nest information for the 
new line (level number = 1). 



Once the syntactic definition pointer is 
set, control is transferred to CKRINTRP, 
the syntactic interpreter (Chart 009), to 
use the syntactic operator code from the 
definition to locate and branch to the 
corresponding operator routine. Errors are 
detected by operator routines and are 
normally handled by the CKRFAIL routine 
(Chart 035), which is detailed later. 
However, certain operators are complex 
enough to be a time-saving substitute for 
nesting to another syntactic line. The 
implied nesting may have implicit error 
message (s) associated with it. Detecting a 
particular error by an operator routine can 
cause a specific error message to be issued 
and allow processing to continue as if no 
error had occurred. 



When the checker is recalled to continue 
checking a statement for which a diagnostic 
has been issued, the checker restores its 
pointers and continues processing just as 
if no error had been detected. 



Operators 



The syntactic operators and their 
corresponding routines are described below. 
Unless otherwise noted, the routine 
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branches to CKRINTRP with an updated 
definition pointer at completion of its 
functions. 



< L Start of a series of alternatives 
(CKRLBRCE f Chart 010) 

The qualification information is pushed 
down into the qualification list (see 
Figure 5). The "false" and "true" 
displacements to the next | operator and to 
the corresponding > operator respectively f 
as well as the source pointer, the updated 
definition pointer, and the line nest level 
number, are saved as current qualification 
information. The qualification iteration 
count is set to zero and the commit switch 
is turned off. 



tested failed, the indication of failure is 
removed (since there is still another 
alternative to be tested which may be 
successful), the source pointer is backed 
up to try an alternative definition against 
the same source, and the qualification 
"false" displacement is updated to the next 
| operator or to the associated > operator 
if this is the last | operator within it. 



(, Start of an optio nal definition 
(CKRLPARN, Chart 010 ) 

Same as the < operator, except that only 
"false" displacement is meaningful and that 
is the displacement to the associated ) 
operator. 



>, End of a series of alternatives 
(CKRRBRCE, Chart 010) 



If the last alternative failed, the 
source pointer is backed up, the 
qualification list is popped up (see Figure 
5) and control is transferred to CKRFAIL, 
the checker' s general error routine. If 
the last alternative attempted was 
successful, the qualification list is 
popped up, and the next syntactic operator 
will be interpreted at CKRINTRP. 



I, Separator of alternatives (CKROR, 
Chart 010) 



) , End of an optional de finitio n (C KRRPARN^ 
Chart 010) 

If the optional definition was not 
satisfied, the indication of failure is 
removed and the source pointer is backed up 
to test the same source against the next 
operator. 



Whether the definition was satisfied or 
not, the number of iterations performed 
(qualification iteration count) is saved 
for possible action routine use, and then 
the qualification list is popped up before 
the next operator code is interpreted. 



If the last alternative attempted was 
successful, the definition pointer is 
updated from the qualification "true" 
displacement to point to the > operator 
that terminates this series of 
alternatives. If the last alternative 



/, Commit to this alternative or optional 
definition (CKRCOMIT, Chart 011) 

The commit switch associated with the 
current qualification information is turned 
on. 
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Before: 



After: 



WKANLIST 



Current line nest 
at WKALNEST, Level = n 



Level = 



Level = 1 



Level = n-1 



AVAILABLE 
SPACE 



Level = n 



Level = n 



Level = n-1 



Level = n-1 



Level = n-1 



* 



Level - 1 



LeveJ = 1 



Level =0, committed 



WKAQUALF 



NEST STACK 



WKANLIST 



Current line nest 
at WKALNEST, Level =1 



(not used) 



? 



^ — Pointer to next 
available nest 
slot (REGNSTPT) 



£ 



•#— Pointer to next 
available 
qualification 
slot (REGQALPT) 



* 



Current qualification at 
QKAQUALF, Level =n 



I 



l 
I 



i 



-Pointer to next 



I available nest 

.1 slot (REGNSTPT) 



AVAILABLE 
SPACE 



i 



j 



Level = 1, committed 



Level = 1, committed 



Level = 0, committed 



_Pointer to next 
available 
qualification 
slot (REGQALPT) 



_Top of 
qualification list 
(Address in WKATPQLS). 



Unused qualification slots, 
eliminated when additional 
space needed for nest or 
qualification entries 
(potential available space) 



j 



Top of WKAQLIST 

qualification list 



QUALIFICATION STACK 



L 



Current qualification at 
WKAQUALF, Level = 1, 
committed 



Figure 6. Effect of Statement Commit on Pushdown Stacks 
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: , Commit to this type of statement 
(CKRSTCMT, Chart Oil) 



, C heck source for expected FO RTRA N name 



N 
(CKRNAME 



Chart 014) 



The statement global commit switch is 
turned on* The commit switches (see / 
above) are turned on in all qualification 
entries associated with this line (all 
entries having the nest level number of the 
current line) . The current line becomes 
level 1, Figure 6 illustrates the effect 
of : on the nest and qualification lists. 

. .., Indefinite Iteration (CKRITIND, 
Chart 012) 

This operator routine can be reached 
only after a successful iteration. The 
qualification iteration count is 
incremented for possible action routine 
use. The new source pointer value is saved 
as qualification information, the 
qualification commit switch is turned off, 
and the syntactic definition pointer is set 
to point back to the operator immediately 
following the qualification left 
parenthesis. 

. n. . Definite Iteration (CKRITDEF, 
Chart 012) 

The qualification iteration count is 
incremented and compared to n. If fewer 
than n iterations were checked, processing 
continues as for indefinite iteration 
(saving the new source pointer, etc.). The 
nth iteration gets us to the right 
parenthesis ending the iteration loop. 

S YMB OLIC-NAME, nest to a syntactic line 
(CKRSYNS f CKRSYNST after a table, Chart 
013) 

The current line nest is placed at the 
top of the nest list (i.e., "pushed down" 
into the nest list; see Figure 5). The 
syntactic definition pointer, updated to 
point beyond the symbolic-name, is saved in 
the nest. The level of nesting is 
incremented for the new line, and a pointer 
to the new line is placed in the nest. The 
syntactic definition pointer is now set to 
point to the new line definition (first 
operator after = sign) . 

M, Check source for FORTRAN name that may 
or may not be present (CKRMNAME, Chart 014) 

If the first nonblank source character 
examined is not alphabetic, or if six 
alphameric characters are found following 
the first alphabetic, this test fails and 
control is transferred to CKRFAIL. 

When this test succeeds, the source 
pointer is updated beyond a satisfactory 
FORTRAN name, i.e., an alphabetic followed 
by from zero to five alphamerics. 



If the first nonblank source character 
examined is not alphabetic, this test fails 
and control is transferred to CKRFAIL. 

If the first character is alphabetic, 
the source is assumed to be a name, and the 
source pointer is advanced until a 
non-alphameric character is detected. If 
the number of characters (initial 
alphabetic plus subsequent alphamerics) 
exceeds six, control is returned to the 
executive with an error indication of name 
too long. When the executive recalls the 
checker after recording the error, 
processing continues with the syntactic 
operator following N and that first 
non-alphameric character detected, just as 
if the name were a valid length. 

L, Chec k source for alphabetic ( CKR LETTR, 
Chart 015) 



If the next nonblank source character is 
an alphabetic character (A through Z) or 
the character $, the test is successful and 
the source pointer is updated beyond the 
letter obtained. Otherwise, the test has 
failed, and control is transferred to 
CKRFAIL. 

D, Check so urce for di git (CKRDlGITj Chart 
015) 

If the next nonblank source character is 
a digit (0 through 9), the test has 
succeeded and the source pointer is 
updated. Otherwise, control is transferred 
to CKRFAIL. 

A, Check source for alphameric (CKRALMER, 
Chart 015) 

If the next nonblank source character is 
alphameric (A through Z or $ or through 
9), the test has succeeded and the source 
pointer is updated. Otherwise, the test 
has failed, and control is transferred to 
CKRFAIL. 

K, Check source for a number in FORTRAN 
real or integer form (CKRNUMBR, Chart 016) 

Definition of terms 

leading- 
zeros 
count - number of zeros before the 

first nonzero digit or number 
of zeros before the decimal 
point, whichever is less , 
i.e., "insignificant zeros." 

digit count - number of digits including 
and after the first nonzero 
digit or number of digits 
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after a decimal point, 
whichever is greater, i.e., 
number of significant digits. 



zero count - number of zeros after the 

decimal point. Zero count is 
equal to zero in the case of 
no decimal point. It 
includes all zeros, not just 
leading zeros. 



Notes : 



1. The total number of digits equals the 
leading-zeros count plus digit count. 
FORTRAN uses this to determine length 
of basic real constants. 

2. Any number is zero if the digit count 
equals the zero count. 

ten's power - computed for real constants, 
ignoring any associated 
exponent; the smallest 
integer greater than or equal 
to the logarithm to the base 
10 of a basic real constant 
or integer. The decimal 
position of the leftmost 
nonzero digit is used to 
compute ten's power, e.g., 
50.38 or 74, ten's power 
equals 2; -.4, ten's power 
equals 0; 0.0001, ten's power 
equals -3. 

type bit - indicates Real (0) or Integer 
(1). 

length bit - indicates E (0) or D (1) 
length. (E for integer). 

value bit - indicates zero (0) or 
nonzero (i) . 

Type bit, length bit, and value bit can 
occur in the following combinations with 
the meanings given in Table 3. 



Table 



K Operator Bit Combinations 



r t- 

| Bit Combinations | 
j. T T 1 



Type | Length | Value | 


bit | bit 




bit 


| Meaning 


4 


-4- 




.4 


1 | 







| integer length 4 zero 


1 | 




1 


| integer length 4 
| nonzero 


| 







|real length 4 zero 


| 




1 


|real length 4 nonzero 


| 1 







|real length 8 zero 


| 1 




1 


|real length 8 nonzero 


JL 


-X. 




.j. 



The combinations 110 and 111 will not occur 
if the K operator takes the "true" return. 
The combination 111 (nonzero integer of 
length 8) is therefore set when the K 
operator takes the "false" return (not a 
numeric constant). 



Proce d ur e 

The leading-zeros count, digit count, 
and zero count are initialized to zero. 

If the first nonblank character obtained 
from the source is neither a digit (0-9) 
nor a decimal point, the K switches are set 
to indicate length D integer (not a number) 
and the test fails with a branch to 
CKRFAIL. 

If the first source character is a digit 
greater than zero, the digit count is 
incremented by one. If that first 
character is zero, the leading zero count 
is incremented by one. If the first 
character is a decimal point, control 
transfers to CKRDECPT. 

After the first digit (zero or nonzero) 
is obtained (and if no decimal point has 
been found yet) , subsequent nonblank 
characters are treated as follows : 



1. 



2. 



1 through 9: digit count is 
incremented by one, next character is 
obtained and examined; 

zero: if digit count is still zero, 
leading-zero count is incremented by 
one; if digit count is greater than 
zero, it is incremented by one; in 
either case, the next character is 
examined ; 



decimal point: 
CKRDECPT; 



control transfers to 



4. 



5. 



E or D: length switch is set 
appropriately, ten's power is set from 
digit count, and control is 
transferred to CKREXPON; 

any other character: integer 
processing follows at CKRINTEG. 



CKRINTEG. The number is assumed to be an 
integer. If its magnitude 
exceeds 2,147,483,647, control 
is returned to the executive 
with an error indication of 
integer too large. When the 
executive recalls the checker, 
processing continues as if the 
integer were a valid length. 
Type and length switches are set 
for a valid integer (length E), 
and the value switch is set 
according to whether the number 
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has all zero digits or not. 
These switches are set for 
possible use by action code 
routines. The operator beyond K 
can now be interpreted 
(CKRINTRP) . 

CKRDECPT. Ten f s power is set from digit 
count. If "0R, W "AN,* or a 
relational operator (e.g., W EQ # M 
M GT n ) follows the decimal point, 
the point is taken to be part of 
the operator, and the source 
pointer is backed up to that 
point. If no digits (zero or 
greater) were encountered prior 
to the operator, the numeric 
test fails, the K switches are 
set to indicate length D integer 
(not a number) and control is 
transferred to CKRFAIL. If any 
digits did precede the operator, 
those digits are treated as an 
integer and control is 
transferred to CKRINTEG. 

If the decimal point is not 
followed by a logical or 
relational operator, characters 
beyond the point are handled as 
follows : 

For each consecutive digit, 
digit count is incremented by 
one; zero count is also 
incremented for each zero digit, 
and if ten's power was never 
greater than zero, it is 
decremented for each zero until 
a nonzero is encountered. When 
a character is encountered that 
is not a digit, a check is made 
that there are some digits 
before or after the decimal 
point. If no digits precede or 
follow the point, and the 
definition is not committed, the 
numeric test fails (K switches, 
not a number) , and control is 
transferred to CKRFAIL; if there 
are no digits, but the 
definition is committed, control 
is returned to the executive 
with an error indication that a 
real constant must have at least 
one digit, and when the 
executive recalls the checker, 
processing continues at 
CKRRDORE, as if there were some 
digits. 

CKRRDORE . If the source character is E 
(single-precision) or D 
( doubl e- precis ion ) , the length 
switch is set appropriately and 
control is transferred to 
CKREXPON. If the source 
character is not E or D, the 



I length switch is set to E, and 

processing continues at 
CKRCKSIZ. 

I CKREXPON . The type switch is set for read, 
I and the exponent is evaluated as 

a signed number. Processing 
continues at CKRCKSIZ for range 
testing. 

CKRCKSIZ . If the algebraic sum of ten* s 
power and exponent value 
(exponent value alone if the 
number is zero) is less than -78 
or greater than 76, control is 
returned to the executive with 
the appropriate error 
indication. When the executive 
recalls the checker, processing 
continues at CKRREAL, just as if 
the exponent were an acceptable 
value. 

CKRREAL . The type switch is set for real, 
and the value switch setting is 
determined by whether all digits 
(excluding an exponent) were 
zero or not. Any invalid 
decimal points or extraneous 
exponents are diagnosed. The 
operator beyond K may now be 
interpreted (CKRINTRP). 

S, Check source for a statement numbe r 
(CKRSTATM, Ch a rt 017) 

If a sign (+ or -) is present, an error 
indication is saved and the sign is 
bypassed. 

If the next nonblank source character is 
not a digit, this test fails with a 
transfer of control to CKRFAIL. Leading 
zeros are ignored and significant digits 
counted until a non-digit is encountered in 
the source. At that time, if the number of 
significant digits is between one and five 
inclusive and no sign was encountered, the 
test is successful. Otherwise, control is 
returned to the executive with an error 
indication of invalid statement number. 
When the executive recalls the checker, 
processing continues at CKRINTRP, just as 
if a valid statement number had been found. 

H f Check source for the wH form of a 
literal constant or a literal format code 
(CKRHOLLR f Chart 018) 

Starting with the first nonblank source 
character, consecutive digits, as they are 
encountered, are converted to a width 
value. If the first character is not a 
digit, or if an H is not obtained after the 
width, the test fails and control is 
transferred to CKRFAIL. However, once wH 
is found, the source is assumed to be a 
literal constant or a literal format code. 



42 



If w is zero or greater than 255, 
control is returned to the executive with 
an error indication to that effect. When 
the executive recalls the checker, if w was 
zero, processing continues with 
interpretation of the next operator; 
otherwise f processing continues as for a 
valid width. 



If there are fewer than w characters 
remaining in the source statement, control 
returns to the executive with a terminating 
error indication of incomplete literal 
field. Otherwise, the source pointer is 
spaced w characters (including blanks) 
after the H. 

Cj Check source for a ch aracter str ing in 

single quotes (CKRCSTRG, Chart 019) 

If the first nonblank source character 
obtained is a single quote, the source is 
assumed to be a character string. 
Otherwise, the test fails and control is 
immediately transferred to CKRFAIL. 

In counting characters in the string, 
blanks are included. Two successive single 
quotes are counted as one character. The 
string is successfully ended when a single 
quote not followed by another quote is 
encountered. If the source ends or more 
than 255 characters are counted before the 
closing single quote is found, or if the 
character string was empty, control is 
returned to the executive with an 
appropriate terminating error indication. 



"aa. . 



Chec k s ource for the presence of 



t he literal quoted (CKRQUOTE, Chart 020) 
and 



' aa. 



Check source for the absence of 



the literal quoted (CKRNQTQT, C har t 020) 

The next length-of- literal nonblank 
characters in the source are gathered and 
compared to the literal given. If the 
literal is matched, the source pointer is 
updated beyond the last character obtained. 

The test fails with a transfer of 
control to CKRFAIL (1) if there is a match 
and t • aa. ..a 1 : is the operator or (2) if 
there is not a match and • aa...a' is the 
operator. 

The test is successful (1) if there is a 
match and , aa...a l is the operator or (2) 



if there is not a match and n 
the operator. 



aa. . . a 



Sa, Sc an for the presence of the argument a 
(CKRSCAN, Chart 021) and 

ha, Scan for the a bsence of the ar g ument a 
(CKRSCANF. Chart 021) 



The remainder of the source is scanned 
for the given character. The scan 
terminates when the character is found. 



£a succeeds if the character is found 
before the end of the source; ^a succeeds 
if the end of the source is reached without 
the character being found. The source 
pointer is unaffected by the scan. If the 
character is not found and &a is the 
operator, or if the character is found and 
^a is the operator, the test fails and 
control is transferred to CKRFAIL. 

$n y Call action routine N (CKRACTN, 
CKRACTNT after a table. Char t 022) 



The appropriate special-purpose 
subroutine is called to perform a specific 
test or task, identified by n. The 
individual action code routines and their 
returns to the checker are described in 
"Action Code Routines. w 

*n. Define an error message (CKRMESSG , 
Chart 033) 

The error message code n is saved as 
part of the nest information, where it can 
be accessed by the CKRFAIL routine in 
processing an error. 

STABLE- NAME | Check source for. one of the 
literals in the table B and 

-TABLE-NAME, Verify that source does not 
appear in the table (TABL, TABLT after a 
table. Chart 033) 

A number of nonblank characters equal to 
the maximum-argument-size is obtained from 
the source. The length- of- argument 
characters are compared to each literal 
argument in the table until either a match 
is found or the table is exhausted. 

If there is no match and the operator is 
-TABLE-NAME, the test is successful. The 
syntactic definition pointer is incremented 
so that the operator following the first 
table reference in the chain will be 
interpreted next. If there is no match, 
but the operator is +TABL£-NAME, the test 
fails and control is transferred to 
CKRFAIL. 

If there is a match, the source pointer 
is incremented beyond the matching source 
characters. If the operator is 
-TABLE-NAME, the test fails and control is 
transferred to CKRFAIL. If the operator is 
♦TABLE-NAME, the test has succeeded and the 
function associated with the matched 
argument is examined. An operator routine 
invoked as a table function is entered at a 
special point (operator-routine -name 
suffixed by T) to account for the different 
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definition pointer used, 
is: 



If the function 



1. SYMBOLIC-NAME, the syntactic line 
named is nested to at CKRSYNST; 

2. +TABLE-NAME, the table named is 
searched at CKRTABLT; 

3. $n f the action code n is processed at 
CKRACTNT; 

4. 0(null action) or if the last table 
function has been successfully 
processed, the syntactic definition 
pointer is incremented so that the 
operator following the first table 
reference is examined at CKRINTRP. 

Once some argument in a table is 
matched, even if tests fail at the function 
level, no other arguments in the table are 
checked against the source. 



END-OF-DEFINITION-LINE, Unnest syntactic 
line (CKRSYUNS, Chart 034) 



If the current line nest is at level 1, 
the definition has been satisfied and 
control is to be returned to the executive. 
The presence of any excess source 
character (s) is diagnosed, unless a prior 
error was detected in the statement. 



CKRTSTML, if the end-of-source has been 
reached, an error code bit is set on to 
indicate a terminating error. At CKRTMRET, 
the error message information is compared 
to that of any previous message issued for 
the current statement. If the new error 
information is unique, it is saved, and the 
error will be recorded (up to a maximum of 
five checker-detected errors per statement) 
via the executive; processing continues at 
CKRERRET. If identical error information 
was already issued, and the error is still 
not a terminating error, processing 
continues as though the executive had 
issued the message and recalled the 
checker; and the checker continues its scan 
of the same statement. 

If an identical error message was 
issued, but the error is now a terminating 
error, control is returned to the executive 
without indication of error. At CKRERRET 
registers are saved for reloading after 
possible recall by the executive, the 
checker-detected error switch is turned on, 
and control is returned to the executive. 

If we are not committed to this path, 
any necessary unnesting takes place to 
bring the level of line nesting back up to 
the level of the current qualification. 
The syntactic pointer is reloaded from the 
qualification "false" displacement so that 
the next alternative operator, | , or 
qualification end, > or ) , may be 
interpreted. 



At any subsequent level of nesting, the 
syntactic definition pointer is restored 
from the nest to point immediately beyond 
the symbolic reference to this line on an 
earlier line. Then a line nest is removed 
from the top of the nest list ("popped up") 
to replace the current nest (see Figure 5). 

All operators valid for interpretation 
have been discussed. Failure in an 
operator routine often causes control to be 
transferred to CKRFAIL, the failure 
routine, which operates as follows; 



CKRFAIL, Failure routine, (Chart 035) 



Action Code Routines (Charts 023-032) 



The action code ($n) operator routine 
initializes for no errors and then gives 
control to the appropriate action code 
subroutine (an unrecognizable action code 
constitutes a system or syntax checker 
failure — WKASFAIL set) . 

Upon completion of the action 
subroutine, control is returned to the main 
body of the checker where error indicators 
are tested and control is transferred 
appropriately: 



A switch is turned on to indicate 
failure in an operator. If we are 
committed to this path, i.e., if the commit 
switch is on for the current qualification, 
the error message code is set from the 
current line nest and the error source 
reference is set to the source location of 
the last character (or character string) 
obtained. At CKRREINT the branch register 
is set to return control to CKRINTRP in 
case the checker is recalled to continue 
checking beyond the failing element. At 



1. Failure switch (WKAFALSW) on — Branch 
to the CKRFAIL routine to determine 
whether an error message is to be 
issued. 

2. Error code set (WKAERRCD not zero) — 
If committed, branch to CKRREINT (in 
the CKRFAIL routine) to issue an error 
message before proceeding to interpret 
the next operator (at CKRINTRP). If 
not committed, branch to CKRFAIL to 
try the next alternative. 
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3. Not-operational byte set (WKASFAIL, in 
work area IPDERWKA, not zero) — 
branch to CKRERRET (in the CKRFAIL 
routine) to issue a system or syntax 
checker failure message and 
discontinue checking the statement. 



4. None of the above — branch to 
CKRINTRP to interpret the next 
operator. 



103, Save K operator switc h es (CKRAR103 , 
Chart 024) 



This routine is called only for complex 
numbers. The switches set by the K 
operator for the real portion of the 
complex number are saved for use in routine 
104. 



104. Complex number checker (CKRAR104, 
Chart 024) 



100-106. K operator action routines 



Action routines 100 through 106 perform 
tests on fields and switches set by the K 
operator. The K digit count contains the 
number of significant digits counted by the 
K operator. The K switches are: type, 
which may be integer or real; length, which 
may be D (double- precis ion) or E 
(single-precision) ; and value, which may be 
nonzero or zero. If type = integer and 
length = D, indicating that the absence of 
a numeric constant was previously 
diagnosed, control is immediately returned 
to the checker. 



The K operator switches that have just 
been set for the imaginary portion of a 
complex number and those switches saved by 
routine 103 are tested to be sure that type 
= real for both and that both have the same 
length attribute (E or D) . If either 
requirement fails to be met, an error code 
indicating invalid complex number is 
returned to the checker. 



105. Data set reference num ber (CK RAR10 5, 
Chart 024) 



100. 



Nonzero integer (CKRARlOO, Chart 023) 



Switch settings are examined for type = 
integer and value = nonzero. If either of 
the above requirements is not met, control 
is returned to the checker with an error 
code indicating that a nonzero integer is 
required. 



Switch settings are checked for type = 
integer and value = nonzero and the digit 
count is checked for not being greater than 
two. If any of the above requirements is 
not met, control is returned to the checker 
with an error code indicating an invalid 
data set reference number. 



106. Real numb er (C KRAR106, Chart 025) 



101. Nonzero number (CKRAR101, Chart 023) 



Switch settings are checked for type = 
real. If type = integer, control is 
returned to the checker with an error code 
indicating real number required. 



The switch settings are checked for 
value = nonzero. If value = zero, control 
is returned to the checker with an error 
code indicating that a nonzero number is 
required. 



200-202. Chec k nu mber of subscripts 



200. P ossi bly to o many su bscripts precede 
(CKRAR200, Chart 026) 



102. Integer (CKRAR102, Chart 023) 



Switch settings are checked for type = 
integer. If type = real, control is 
returned to the checker with an error code 
indicating integer required. 



This routine checks the iteration count 
saved after an iteration loop has been 
completed. If the saved iteration count 
exceeds 2 for FORTRAN E, or 6 for any other 
level of FORTRAN, control is returned to 
the checker with an error code warning that 
possibly too many subscripts precede the 
source characters ( w ) w ) pointed to. 
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201^ 
026) 



Too many subscripts (CKRAR2 01, Chart 



This routine checks the iteration count 
of the current iteration loop. If the 
current iteration count is exactly 2 for 
FORTRAN E, or 6 for any other level of 
FORTRAN, control is returned to the checker 
with an error code indicating too many 
subscripts at this point ( w f w following 
last valid subscript) . 



401. Check for List-Directed I/O support 
(CKRAR4 00, Chart 02 8) 



If the source is not being checked for 
FORTRAN Gl or Code and Go syntax, control 
is returned with a code indicating a 
terminating error. The code indicates that 
List-Directed I/O is illegal. 



500. Check range of IMPLICIT statement 
(CKRAR500, Chart 029) 



2 02. Too many subscripts precede 
(CKRAR202, Chart 026) 



This routine is identical to 202 with 
the exception that the error code indicates 
that too many subscripts definitely precede 
the source characters ( n ) w ) pointed to. 



The next nonblank characters in the 
source are checked for an alphabetic 
character not followed by a hyphen or for 
an alphabetic character followed by a 
hyphen followed by a higher alphabetic 
character, where the character $ is 
considered alphabetically greater than Z. 
If the source does not meet the 
requirements, control is returned with an 
error code indicating that an invalid range 
was specified in an IMPLICIT statement. 



300. Check END statemen t (CKRAR300, Chart 
027) 



If the statement was labeled (with a 
statement number) or if there was a 
nonblank character in the continuation 
column or if, in free-form, the statement 
contains more than 66 characters (not 
including trailing blanks) , control is 
returned with a code indicating a 
terminating error. 



600-603. Check I/O lists 



Action routines 600-603 are used in the 
checking of I/O lists: 

600-602 to verify that the index 
variable of an implied DO is not 
subscripted; 

603 to look ahead to verify that a 
right parenthesis closes an implied 
DO. 



301. Check FORMAT statement for label 

(CKRAR301, Chart 027) 



600. Initialize for no subscripting 
(CKRAR600, Chart 030) 



The subscript switch is initialized off. 



If the statement was not labeled (with a 
statement number) f control is returned with 
an error code indicating that the statement 
number is missing. 



601. Indicate sub scrip ti ng (CKRAR6 01, 
Chart 030) 



400. Check for DEBUG facility (CKRAR400, 
Chart 028) 



If the source is not being checked for 
FORTRAN G, Gl, or Code and Go syntax, 
control is returned with a code indicating 
a terminating error. The code indicates 
that the Debug facility is not supported. 



The subscript switch is set on. 



602. Test for subscripting (CKRAR602, 
Chart 030) 



If the subscript switch is on, control 
is returned with an error code indicating 
that the variable may not be subscripted. 
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6 03. Test for following right parentheses 801. 

(CKRAR603, Chart 030) 032) 



Fail unconditionally (CKRAR801, Chart 



If the next nonblank character in the 
source is not a right parentheses, control 
is returned with an error code indicating 
that a right parenthesis is required. (If 
the right parenthesis is detected, it is 
not bypassed. ) 



The failure switch is set on and control 
is returned to the checker. 



Get-Character Routines (CKRGTANY. CKRSKANY, 
CKRGTNBS, CKRGTNBl. CKRSERCH) , (Charts 
036-039) 



7 00. Check format code width spe cification 

(CKRAR700 ff Chart 031) 



Starting with the first nonblank source 
character, consecutive digits are converted 
to a "width" value. If the first character 
is not a digit, control is returned to the 
checker with the failure switch on. 



Once the first non-digit is encountered, 
the width value is checked for size. If 
the width is not in the range 1-255, 
control is returned with an error code to 
that effect, and a width value of or 255, 
as appropriate, is saved. 



701. Check format code decim al places 
specifi cation (CKRAR701, Chart 032) 



Starting with the first nonblank source 
character, consecutive digits are converted 
to a "decimal places" value. If the first 
character is not a digit, control is 
immediately returned to the checker with an 
error code indicating that decimal places 
must be specified. 



Once the first non-digit is encountered, 
the decimal places value is compared to the 
width value saved by routine 700. If the 
decimal places value is greater than the 
width, control is returned with an error 
code to that effect. 



These are the routines in IPDSNCKR which 
are used to get or skip characters in the 
source statements. Their inputs are a 
supplied source pointer, an 
end-of- statement pointer, a count of 
characters to be moved, and a character to 
be searched for. Their outputs are current 
and update source pointers, a source- end 
switch setting, a result buffer, and the 
count of characters actually moved. The 
routines obtain characters from the 
character string in the work area. 

The supplied source pointer contains the 
address of a character in the character 
string. A negative source pointer 
indicates no more source. The supplied 
source pointer may be the initial source 
pointer passed by the executive to IPDSNCKR 
or any current, previous, or update source 
pointer value for the current statement. 

The end- of -statement pointer contains 
the address of the last character of the 
statement character string. 

When characters are requested to be 
moved, they are placed in the result 
buffer. When fewer characters are moved 
than were requested, an end-of -source 
character is appended to those already 
placed in the buffer. A request for zero 
characters is not legitimate and causes 
undefined actions. 

The get-character routines will fold 
lower case alphabetics to upper case if 
free-form is specified in the options word. 

The CKRSKANY and CKRGTANY routines share 
common code. 



800. Check for end o f source (CKRAR800, 
Chart 032) 



If there are any further source 
characters, the failure switch is set on 
before control is returned to the checker. 



Get Any Source Characters (CKRGTANY, Chart 
037) 



Starting with the one specified by the 
supplied source pointer f the requested 
number of characters is moved to the result 
buffer* 
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The current source pointer is set equal 
to the supplied source pointer. 

The update source pointer is set to the 
character after the last one moved* or it 
is set negative if there is no next 
character. 

If there are not enough source 
characters to satisfy the request, the 
source-end switch is set on; otherwise, it 
is set off. 

The count of characters moved, not 
including a possible end of source 
character, is stored. 



Skip N Source Characters (CKRSKANY, Chart 
037) 



This subroutine skips a specified number 
of characters in the lines of a source 
statement. Skipping begins at the 
character specified by the source pointer 
and continues until the count is satisfied 
or the end of source is found. 

If the specified number of characters 
are available and skipped, an update 
pointer is set to the source byte following 
the last one skipped. 

This subroutine has the same 
specifications as CKRGTANY except that the 
result buffer is destroyed and the number 
of characters requested may be more than 
the length of the result buffer. 



The count of nonblank characters found, 
not including a possible end-of -source 
character, is stored. 



Get One Nonblank Ch ara cter (CKRGTNB1, Chart 
036) 



This subroutine has the same 
specification as CKRGTNBS except it is 
understood that the request is for one 
nonblank character, and the number of 
characters moved is not recorded. 

This is a separate routine from CKRGTNBS 
in order to increase efficiency. 



Search Source for Specific Character 
(CKRSERCH, Chart 039) 



This subroutine searches the remainder 
of a source statement for a specified 
character. The search begins at the source 
character specified by the supplied source 
pointer and continues until a match is 
found or the source statement end is 
encountered. 

If a source character matches the 
supplied character, the update source 
pointer is set to that source byte, and the 
source end switch is set off. 

If no match is found, the source end 
switch is set on, and the update source 
pointer is set negative. 



Get N Nonblank Characters (CKRGTNBS, Chart 
037) 



THE IPDER MODULE 



The requested number of nonblank 
characters is moved to the result buffer. 
The scan begins with the character 
specified by the supplied source pointer. 

Upon entering the routine the current 
source pointer is set to zero. If there 
are no nonblank characters, the current 
source pointer remains zero. Otherwise, 
the current source pointer specifies the 
first nonblank character moved. 

The update source pointer is set to the 
next character, blank or nonblank, after 
the last one moved, or it is set negative 
if there is no next character. 

If there are not enough nonblank 
characters to satisfy the request, the 
source-end switch is set on. Otherwise, it 
is set off. 



The IPDER module constructs diagnostic 
messages in the message buffer, WKAERBFR* 
It is used to construct all the messages 
sent from the IPDSN module to the 
environmental system. The format of these 
error messages is described in Section II, 
"Error Messages. " The messages are 
constructed from information passed to 
IPDER in the area IPDERWKA when it is 
called, and from information in two tables, 
MSGTABLE and MSG000, internal to the 
module. The IPDERWKA information is used 
to generate the message identification, 
line number, and source character fields of 
the message. Tables MSGTABLE and MSG000 
are used to generate the message text field 
as follows s The error code with its 
rightmost bit zeroed is used as an index 
into MSGTABLE which is a table of 
half words. The half word thus obtained from 
MSGTABLE is a displacement from the start 
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of MSG000, the table containing the actual i.e. f from the next two bytes of MSGTABLE. 

message texts. The address of the text of The text address and length are used to 

the desired message is this displacement move the message to the message buffer, 

added to the base address of MSG000. The The remainder of the buffer is filled with 

length of the desired message is found by blanks, completing the operation of the 

subtracting its displacement (in MSGTABLE) IPDER module, 
from the displacement of the next message, 
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SECTION III J 



PROGRAM ORGANIZATION 



The following text and the flowcharts at 
the end of this section describe the 
executable control sections and routines 
that accomplish the functions of the syntax 
checker modules. There are three control 
sections containing executable code: the 
executive, the checker, and the error code 
processor. Each control section and its 
routines are described in the order in 
which they are discussed in Section II. 
Figure 7 shows the organization of the 
syntax checker modules in core storage. 



EXECUTIVE 



Control Section Name: IPDSNEXC (Charts 
001-005) 



checker finds an error in a source 
statement. 

• Requests more source input when needed. 

• Returns to caller with appropriate 
error messages. 

Routines Called 

IPDSNCKR is called to begin syntax 
checking a source statement or to resume 
checking on a statement after the executive 
has passed its syntactical error message to 
the system. 

IPDERERR is called to generate an error 
message from an error code supplied by the 
executive or returned to the executive by 
the checker. 



Entry Point 

The executive is called by the 
environmental system at IPDSNEXC when 
FORTRAN IV syntax checking is requested by 
a terminal user. 



Exits 

The executive exits to the system with 
an error message to be sent to the user, 
with a request for more input, or after the 
final-entry cleanup has been accomplished. 



Function 



Attributes 



IPDSNEXC performs the following 
functions : 

• Acquires and releases a work area for 
the syntax checker. 



IPDSNEXC is re-enterable. Its work area 
must not be modified by the environmental 
system. 



• Ensures that the requested language 
definition table is available and in 
core storage. 

• Gets a source statement from the buffer 
chain passed to it by the system and 
builds a statement character string in 
the work area. 

• Checks for valid statement number. 

• Passes control to the checker to syntax 
check a source statement. 

• Recalls checker to resume syntax 
checking on a statement that has had a 
non- terminating error. 

• Calls error code processor which 
constructs error messages when the 



CHECKER 



Control Section Name: 
006-036) 



IPDSNCKR (Charts 



Entry P oint 

IPDSNCKR is called by the executive 
(IPDSNEXC), either to process a new 
statement or to continue processing a 
statement after an error has been recorded. 

Function 

The function of the checker is to edit a 
single FORTRAN statement for syntactic 
errors by matching the source statement 
against a table that defines the syntax for 
FORTRAN IV statements. 
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LOAD MODULE IPDCK 
(Syntax Checker 
executable code, 4 CSECTs) 



C 



c 



c 



Branch toj 



IPDSNEXC 



Instructions comprising 
executive, IPDSNEXC, 
CSECT 



X's in space for expansion 



Branch to 



IPDSNCKR 



Instructions comprising 
checker, IPDSNCKR, 
CSECT 



C's in space for expansion 



Branch tOj[ 



IPDERERR 



Instructions comprising 
error processor, IPDERERR, 
CSECT 



R's in space for expansion 



Table of Error Message 
Phrases, IPDERMSG, 
CSECT 



M's in space for expansion 



LOAD MODULE IPDAGH 
(G/H table loaded by 
initial Gall to Syntax Checker) 



FORTRAN G/H 
Definition Table 



G's Jn space for expansion 



LOAD MODULE IPDTEE 
(E table load by 
initial call to Syntax Checker) 






FORTRAN E 
Definition Table 


E's in space for expansion 



Subpool 001 
(Work area obtained via GETMAIN 
on initial call to Syntax Checker) 



Work Area 



IPDSNWKA (last 8 bytes) 



Figure 7. Map of Core Storage 
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Routines Called 



Attributes 



The various get character routines are 
called to get the next h characters 
(CKRGTANY), the next nonblank character 
(CKRGTNBl), or the next n nonblank 
characters (CKRGTNBS). CKRSKANY is called 
to skip the next n characters. CKRSERCH is 
called to scan the remainder of the source 
for a particular character. 

Exits 

Upon completion of its processing, the 
checker returns control to the executive, 
IPDSNEXC. 

Attributes 

Re-enterable 



GET ANY SOURCE CHARACTERS 

Subroutine Name: CKRGTANY (Chart 037) 

Entry Point 

CKRGTANY is entered when a specified 
number of characters are to be moved from 
the source statement to a result buffer. 

Functions 

CKRGTANY performs the following 
functions : 

• Moves a specified number of source 
characters to a result buffer. 

• Updates a pointer to the source byte 
following the last one moved, or sets 
it negative if there is no next source 
byte. 

• Sets on source-end switch and appends 
an end-of-source character to the last 
character moved into the result buffer 
if there were not enough source 
characters to satisfy the request. 

The number of characters requested must 
fit in the result buffer. 

Routines Called 

None 

Exits 

When the number of requested source 
characters has been found and moved, or the 
source statement end is encountered, the 
subroutine CKRGTANY returns to the calling 
program. 



Re-enterable 



SKIP N SOURCE CHARACTERS 

Subroutine Name: CKRSKANY (Chart 037) 

Entry Point 

CKRSKANY is entered when a specified 
number of characters are to be skipped in 
the source statement. 

Functions 

CKRSKANY performs the following 
functions : 

• Skips source characters until the count 
is satisfied. 

• Updates a pointer to the source byte 
following the last one skipped, or sets 
it negative if there is no next source 
byte. 

• Sets on source-end switch if the end of 
source is found before a specified 
number of characters are skipped. 

Routine s Called 

None 

Exi ts 

The subroutine CKRSKANY returns to the 
calling program when the specified number 
of source characters or the end of source 
has been found. 

Attributes 

Re-enterable 



GET NONBLANK CHARACTERS 



Subroutine Name: CKRGTNBS (Chart 037) 

Entry P oint 

CKRGTNBS is entered when a specified 
number of characters are to be moved from 
the source statement to a result buffer. 

Functions 

CKRGTNBS performs the following 
functions in getting source characters: 
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• Moves a specified number of nonblank 
source characters to a result buffer. 

• Sets a pointer to the first source 
character found and moved. 

• Sets the source-end switch when the 
specified number of characters cannot 
be satisfied and returns a count of 
those found and moved. 

• Sets an update source pointer to the 
byte beyond the last source character 
found or sets it negative if there is 
no next source byte. 

• Moves a special character into the 
result buffer after the last valid 
source character moved if the request 
was not completely satisfied. 

Routines Called 

None 

Exits 

When the number of requested source 
characters have been found and moved or the 
source statement end is encountered, the 
subroutine CKRGTNBS returns to the calling 
program. 

A ttr ibutes 

Re-enterable 



Func tion 

CKRSERCH performs the following 
functions : 

• Searches the statement character string 
for a specified character. 

• Sets the update source pointer to the 
source character that matches the 
user-specified character. 

• Sets on the source-end switch if the 
end of the source statement is reached 
without finding a match, otherwise off. 



Routines Called 

None 

Exits 

The subroutine CKRSERCH returns to the 
calling program when a matching character 
has been found in the source or the end of 
source is reached. 

Attributes 

Re-enterable 



ERROR CODE PROCESSOR 



GET ONE NONBLANK CHARACTER 

Subroutine Name: CKRGTNBl (Chart 036) 

Entry Point 

CKRGTNBl is entered to get one nonblank 
character. 

This subroutine has the same 
specifications as CKRGTNBS except that the 
number of characters to be found and the 
number actually moved is assumed to be one. 



Control Section Name: IPDERERR (Chart 040) 

E ntry Point 

IPDERERR is called by the executive 
(IPDSNEXC) at location IPDERERR. 

Function 

IPDERERR is given a message code and, 
using the information in its message 
definition table, assembles the appropriate 
message in the message buffer. 

Routines Called 



SEARCH SOURCE FOR SPECIFIC CHARACTER 

Subroutine Name: CKRSERCH (Chart 039) 

Entry Point 

CKRSERCH is entered to search the 
remainder of a source statement for a 
user-specified character. 



None 



Exits 



When the error message has been 
assembled in the message buffer, IPDERERR 
returns control to its caller. 

Attributes 

Re-enterable 
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Chart 001. IPDSNEXC (Part 1 of 5) 



ENTRY FROM SYSTEM 



****A2********* 

* * 

* IPDSNEXC * 

* * 
*************** 



*****A3** ******** 

* * 
♦SAVE REGISTERS * 

->* IN CALLER'S * 

* SAVE AREA * 

* * 
********* ******** 



EXCNOTFS 

*****34**** ****** 



* . CHAIN SAVE 
->* AREAS 



*****C2*** ******* 
**** * * 

* * *SET RETURN CODE* 

* F5 *< * = 16 GETMAIN *< 

* * * FAILURE * 
**** * * 

***************** 



NO 



***** C 3** ******** 



* * 



* * 



*****E1* ********* 



NO . * THERE A 

*. BUFFER 

*. CHAIN 



***************** 

L**** 
♦ 005* 
>* A2 * 
* * 
**** 

*****p^ ********** 

* FIND NEXT * 
♦BUFFER ADDRESS * 

* FROM CHAIN *<- 

* ADDRESS IN * 
♦CURRENT BUFFER ♦ 
***************** 



*****G1 ********** 

♦ * 

♦ SET BIT TO ♦ 

♦ ALLOW BUFFER ♦ 

♦ RELEASE ♦ 

♦ * 
***************** 

**** 

* * 
L_>* F3 ♦ 

* * 
**** 

*****H1* ********* 



AREA ♦ ♦ GETMAIN FOR* ♦ 

__* * WORK AREA ♦ ♦ 

AVAIL- ♦ * * 

ABLE ♦ ♦ * * 

***************** 



*****D3 ********** 

* CHAIN SAVE * 

* AREAS, ZERO * 

* TRANSLATE AND * 

* TEST TABLE * 

* * 
***************** 



*****E3 ********** 

* *LOAD TABLES* * 

* * REQUESTED * * 
-* *IN 2ND BYTE* * 

* *OF OPTIONS * * 

* * WORD * * 
***************** 



***************** 



***** C 4********** 

* * 

* RESTORE * 

* REGISTERS 2-8 * 
♦FROM LAST CALL * 

* * 
***************** 



*. . * 

* NO 



**** 

* * 

* F3 *— -. 

* * J 
**** v 



NO . * THERE A * 

*. LINE IN THE 

*. CHAIN .* 



YES .* IS *. 

*. THERE A NEW .*<- 

*. BUFFER . * 



SHOULD THIS 
BUFFER BE 
PROCESSED AS 
AN EXTENSION 
OF THE PREVIOUS 
BUFFER 



***************** 



Jl 


*. 


. ♦REQSTD *. 


YES .* SYNTAX ♦. 


— ♦. TABLE . ♦ 


♦. LOADED . * 


♦- ,♦ 


V *. . * 


***** * no 


*002* 




♦ Bl* 




* * 




* 




\ 


/ 


*****K1*** ******* 


* * 


♦SET RETURN CODE* 


* 


20 ♦ 



H2 ♦. 
.♦IS THIS*. 
O .♦ AN ENTRY ♦ 
-♦.AFTER RETURN 
♦. CODE 12 .♦ 



***** 

♦ 003+ 

♦ A3* 
* * 



V 

.♦. 

F4 *. 

.*IS THIS*. 

NO . * AN ENTRY * 

*. AFTER RETURN 

*. CODE 8 .* 



****GU********* 

* BRANCH * 

* ACCORDING TO * 

* REGISTER 2 * 
*************** 



EXCFINAL 

*****£)5* ********* 

* * * * 

* * DELETE * * 
>* * SYNTAX * * 

* * TABLES * * 

* * * * 
***************** 



*****E5* ********* 

* * * * 

* * FREEMAIN * * 

* * USED FOR * * 

* * WORK AREA * * 

* * * * 
***************** 

**** 

* * 

* F5 *-> 

* * 
**** 

****F5********* 

* * 
♦EXIT TO SYSTEM ♦ 

* * 
*************** 



. SHOULD PREVIOUS 

. BUFFER 

. CONTINUE 

. TO BE 

. PROCESSED 



H3 ♦. 

. *IS THIS*. 

.♦ AN ENTRY ♦. 

.♦.AFTER RETURN . 

♦. CODE 12 .♦ 



**** 

♦ 005 + 

->* Jl * 



**** 

*****£{(**** ****** 

* * 

* SET CURRENT * 
->*BUFFER ADDRESS * 

* TO ZERO * 

* * 
***************** 



*****j3 ********** 
♦SET RETURN CODE* 

♦ = U SET UP ♦ 
♦SYSTEM FAILURE ♦ 

♦ MESSAGE ♦ 

♦ * 
***************** 



***** 

♦ 005* 

♦ A2* 



~"v 

***** 

♦ 004 + 

+ 65* 

* * 



***************** 



***** 

♦ 005* 

* F3* 



*****K4 ********** 

* * 
♦ISSUE LAST LINE* 
♦IS A CONTINUED ♦ 

* LINE MESSAGE * 

* * 
***************** 



***** 

♦ 004* 

* G5* 
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Chart 002. IPDSNEXC (Part 2 of 5) 



***** 

♦ 002* 

* A3* 



I FROM 
00UF3 

EXCNNB V 

*****A3********** 

♦INITIALIZE FOR * 

* NEW STATEMENT * 

* R3=ADDR OF * 
EXCNNB 06 



***** 






***** 




* 


* 


♦ 002* 






♦ 002+ 




***************** 


* Bl* 






♦ B2+ 








* * 






* * 








* 
FROM I 






* 
FROM 1 








001J1 






003E3 








004F3 1 






003F3 I 
EXCNNB10 V 




7 
EXCNNB05 .♦. EX 


*****£!********** 


***** B 2********** 


B3 ♦. 


* SKIP (S-F) 


6 


* 


* 


* 


.♦ ♦. 


* (F-F) £ CONT. 


* 


♦ SAVE CONTENTS 


* 


NO .♦ FREE- ♦. YES 


♦LINES (S-F) 


TIL+ 


♦ OF COL 6 IN 


*< 


*. FORM SOURCE .♦ 


♦ 1ST LINE 


OF 


* 


♦ WKACNCOL 


* 


*. 


. * 



***************** 



.♦ IS THIS ♦. YES 

>♦. A CONTINUED .♦ 

♦. LINE . ♦ 



*****C4********** 

* * 

♦ SET R3 WITH ♦ 
♦LOOP EXIT ADDR ♦ 

♦ (EXCGES) ♦ 

* * 
***************** 



*****£5* ********* 

* * 

* SET * 
->♦ CONTINUATION * 

* SWITCH ♦ 

* * 
***************** 



E2 ♦. 
.♦MSG FOR+. 
YES .♦ LINE TOO ♦. 

r ♦. LONG OR TOO .* 

V ♦. MANY .♦ 

***** ♦. LINES. ♦ 

♦003+ *•- .♦ 

* A3+ ♦ NO 

* * 



**F2******* 

* * 

♦ REGISTER 2 
* = ADDRESS OF 

♦ EXCNNB 30 

* * 
*********** 



*****Q2********** 

♦SET RETURN CODE+ 

♦ = 8, SET UP ♦ 

♦ LINE TOO LONG ♦ 

♦ MESSAGE ♦ 

♦ * 
***************** 



EXCNNB20 .♦. 

D3 ♦. 
.♦IS THIS+. 
.♦ENTRY PAST 

>♦. END OF 

♦. TABLE . 
♦. . ♦ 
♦ . .♦ 
♦ NO 



NO .♦THERE ROOM ♦. 

♦. IN THE CHAR . t 

♦. STRING .♦ 



D4 ♦. 
.♦MSG FOR+. 
.♦ TOO MANY ♦. YES 

->♦. LINES OR LINE. ♦ •, 

♦.TOO LONG .♦ V 

*. .* ***** 

♦. .♦ +003+ 

NO ♦ A3+ 

* * 



**E4******* 

* * 
REGISTER 2 

= ADDRESS OF 
EXCNNB30 

* * 
*********** 



***** 

♦ 005+ 

♦ A2+ 



*****F3********** 

♦ * 

♦ MVC LINE TO ♦ 

♦ CHARACTER ♦ 

♦ STRING ♦ 

♦ * 
***************** 



*****Q3********** 

* * 

♦GET DATA SET OR+ 

♦ RELATIVE LINE ♦ 

♦ NO. ♦ 

* * 
***************** 



*****q3 ********** 



♦UPDATE WKATINU ♦ 
♦ TABLE ♦ 



***************** 



*****F4********** 
♦SET RETURN CODE+ 
♦= 8. SET UP TOO+ 

♦ MANY LINES IN ♦ 

♦ STMNT MSG ♦ 

♦ * 
***************** 



***** 

♦005* 

♦ A2+ 

* * 



***** 

♦ 003 + 

♦ A3+ 
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Chart 003. IPDSNEXC (Part 3 of 5) 



***** 

♦ 003* 

* A3* 



1FR0M 
001H2 
002D4 
002E2 
*****A3********** 



GET A LINE 



* NO MORE 



***************** 



****B2********* 

* BRANCH * 

* ACCORDING TO ♦<- 

* REGISTER 3 * 
*************** 



YES .* FREE- * 
*. FORM SOURCE 



. * FREE- * 
. FORM SOURCE 
*. . ♦ 



STANDARD 
FORM. CHECK 
FOR EMBEDDED 
COMMENTS 



**** 

* * YES .* 

* A3 *< *. 



***** 

♦ 004* 

* G5* 



.CONTINUATION , 

*. LINE .* 

*. . * 



B5 


* 




.* STMNT ♦ . 




.♦ALLOWED TO * 


NO 


>*. SPAN 


* 1 


♦ . BUFFERS . * 


I 


*. * 


I 


♦ . . ♦ 


^ 


* YES 


***** 


**** 




♦ 004* 


* * 




* G5* 


* C5 *-> 




* * 


* * 




* 


**** 






V 




*****C5********** 


* 


* 


* ISSUE RETURN 


* 


* CODE 12 


* 



***** 

♦ 002* 

* B2* 
* * 



***** 

♦ 002* 

* B2* 



E3 *. 

. * WAS *. 

THERE A 

COMMENTS 

. LINE 

*. . * 

*. .* 

* YES 



.*. 
F3 *. 

.♦"comments "*. 

MESSAGE . * 
♦ . SENT .* 



**G3******* 

* * 

♦ REGISTER 2 

* = ADDRESS OF 

♦ EXCNNB10 

* * 
*********** 



*****H3 ********** 

♦ RETURN CODE = * 

♦ 8, SET UP ♦ 

♦ INTERSPERSED * 

♦ COMMENTS * 

♦ MESSAGE 
**************** i 



EH *. 
.* WAS *. 
.♦LAST LINE A+. YES 

*. CONTINUED . ♦ 

♦. LINE .♦ 
♦. . ♦ 
♦ . .♦ 
* NO 



***** 

♦ 004+ 

* G5+ 
* * 



***************** 



****D5+++++++** 

* * 
♦EXIT TO SYSTEM ♦ 

* * 
*************** 



E5 ♦. 

. ♦ STMNT * . 

.♦ALLOWED TO 

*. SPAN 

♦ . BUFFERS . 

*, * 

♦ . . ♦ 



**** 

♦ * 

♦ C5+ 

♦ * 
**** 



**P5******* 

* * 

♦ REGISTER 2 
♦ = ADDRESS OF 

♦ EXCGES 

♦ * 
*********** 



*****Q5********** 

♦ RETURN CODE = * 

♦ 8, SET UP ♦ 

♦ STATEMENT ♦ 

♦ INCOMPLETE ♦ 

♦ MESSAGE ♦ 
***************** 



***** 

♦ 005+ 

♦ A2+ 



***** 

♦ 005 + 

♦ A2+ 
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Chart 004. IPDSNEXC (Part 4 of 5) 



**** 

* A2 * — i 



n 



**** 

EXCLCR 

**A2******* 



FROM 

002H1 

002J1 

002K1 

003H3 



*********** 



*****32**** ****** 
♦IPDSNCKR 006A3* 



EXCLCR8 

*****Cl* ********* 

* * 
♦INDICATE ERROR * 

* MESSAGE AS *< 

* SYSTEM ERROR * 

* * 
***************** 



***************** 



NO .* IS 

*. WKASFAIL 

*. 



. *. 
D2 *. 

. * *. 


EXCLCR 4 .*. 

D3 *. 
.* * 


* SYNTAX *. NO 

ERROR . * 

♦.DETECTED .* 

*. .* 

*. . * 


. * ANOTHER 

>*. STMNT IN 

*. CHAIN 
*. .* 
*. . * 


* YES 


* YES 



*****DH********** 

* * 

♦SET RETURN CODE* 

_>* =0 * 



EXCLCR10 .*. 

HI *. 
. * ANOTHER* . 
. * STMNT IN *. NO 

*. BUFFER .* 

*. CHAIN .* 



**J1******* 

* * 

* REGISTER 2 
* = ADDRESS OF 

* EXCLCR20 

* * 
*********** 



*****K1 ********** 
* * 

♦SET RETURN CODE* 



***************** 



YES .♦ *. 

*. TERMINAL . * 

*. ERROR .* 



**F2******* 

* * 

* REGISTER 2 
* = ADDRESS OF 

* EXCLCR 

* * 
*********** 



*****Q2********** 

* * 

♦SET RETURN CODE* 

♦ = 8, SET UP ♦ 

♦ MESSAGE ♦ 

* * 
***************** 



♦005+ 
->♦ A2 ♦ 



*****H2********** 



EXCLCR 20 

*****E3 ********** 



***************** 



***************** 



***** 

♦ 005* 

* F3* 
* * 



FREE- *. 
FORM . * 



***** 

♦ 002* 

* -Bl* 



" V 
***** 

♦ 002* 

* A3* 



LABEL ERROR MESSAGES 



BOTH FREE- FORM 

AND STANDARD FORM: 

INVALID STMNT LBL 
(S-F)-IF LBL ALL ZEROS 
OR IF NON- DIGIT 
FOUND 
(F-F)-IF LBL ALL ZEROS 
FREE- FORM ONLY: 

EXTRANEOUS CHARS. 

TOO MANY DIGITS IN LBL 

LBL CONTINUED PAST 1ST LINE 



***** 




♦ 004* 




* G5* 




* * 


FROM 


♦ 


001J4 


| 


001R4 




003B5 


I 


003D3 


GES V 


003E4 


*****G5**** ****** 


* 


* 


*SET LAST ENTRY * 


*+ 1 OF WKATINU * 


♦TABLE NEGATIVE * 



***************** 



***************** 



***** 

♦ 005* 

* A2* 
* * 



H5 


* 




.♦IS *. 




.* THERE A * 


NO 


*, STATEMENT 


* 7 


*. NUMBER . * 


J 


*, * 


I 


*. . * 


V 


* YES 


**** 


1 


* * 




* A2* 




* * 


J 


**** 


. *. 




J5 * 




.* IS *, 




. * STMNT * 


YES 


* . NUMBER 


* 1 


*. VALID . * 


I 


*, * 


1 


*. . * 


V 


" NO 


**** 






* * 






* A2* 






* * 






**** 


V 




*****K5* ********* 


♦SET UP MESSAGES* 


* DEPENDING ON 


* 


♦KIND OF ERRORS 


* 


♦ (RC 


:8) 


* 



***************** 



***** 

*005* 

* A2* 

* * 



**** 

* * 

* A2 * 

* * 
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Chart 005. IPDSNEXC (Part 5 of 5) 



***** 

*005* 
* A2* 
* * 
* 
FROM 002F4 I 004G2 
001E1 002G2 j 004H2 
001J3 003G5 I 004K2 
EXCALMS V 

*****A2**** ****** 
**** *SET UP (AS NEC)* 

* * * WKAERRCD * 

* A2 * >* WKAERNUM *- 

* * * WKAERPOS WKA- * 
**** *ERRSC WKAERCHR * 

***************** 



EXCALM25 

*****A3 ********** 



*SET UP REST OF * 

->*PARAMETERS FOR *<- 

* IPDERERR * 



***************** 



*****C3 ********** 
♦IPDERERR 039A3* 



CONSTRUCT THE 
MESSAGE 



***************** 



.* 
*. WKASFAIL 
*. 



*. NO 

: .* 

. * 



*****D4* ********* 

* * 

* ERROR MESSAGE * 
->*IS SYSTEM ERROR* 

* MESSAGE * 

* * 
***************** 



EXCALM30 V 

*****E3* ********* 

*SET POINTER TO * 

* MESSAGE FOR * 

* CALLER OF * 

* IPDSNEXC * 

* * 
***************** 



FROM **** 
Q01K1*005* 
004D4* F3 *-> 



**** 
EXCALMT 



F3 *. 
* *. 
IS RC = *. NO 

8 .* 

.* 
*. .* 
*. .* 
* YES 



**F4******* 

* * 

* REGISTER 2 
->* = ADDR OF 

* EXCALM 77 

* * 
*********** 



REGISTER 2 
PREVIOUSLY SET. 
BY CALLER OF . 
EXCALMS 



***************** 



RETURN TO CALLER . 
OF IPDSNEXC WITH . 
RETURN CODE AND 
POSSIBLY A MESSAGE. 



***** 

*005* 
* Jl* 



****H4********* 

.* * 

*EXIT TO SYSTEM * 

* * 

*************** 



EXCALM77 V 

*****jl ********** 

♦SET RETURN CODE* 

* = 4, SET UP * 
♦CHECKER FAILURE*- 

* MESSAGE * 

* * 
***************** 
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Chart 006. IPDSNCKR Overview 



LABEL PREFIX. 
IS CKR FOR . 
ALL ROUTINE . 
NAMES 



IPDSNCKR 

****A3 ********* 

* * 
♦SYNTAX CHECKER * 

* * 
*************** 





NWOLD . * . 


*****B2+*** ****** 


B3 *. 


*SET OFF FAILURE* 


.* * 


* IND'N RESTORE * 


NO . * NEW 


*PTS AND BRANCH *< 


*. STATEMENT 


* REG * 


*, 



***** 

♦ 006* 

* B4* 



PUSH DOWN 

QUALIFICATION 

INFORMATION 



* >* E3 



USUALLY TO 
INTRP 



***************** 



****C2** ******* 

* ACCORDING TO * 

* BRANCH REG * 

* * 
*************** 



***************** 



***** 
*006* 
* El* 



***** 

♦ 006* 

* E2* 



NMLRT 

****E1* ******** 





* 


* 


* INDICATE 




* 


* RETURN *< 


* CHECKER NOT 


* 


* * 


* OPTIONAL 




* 


*************** 


* 




* 


A 


***************** 






**** 




* 






*006* 




♦ 






* F2 * — n 

* * J 
**** v 




* 








* 






LETTR .*. 






*****F1* ; 


<******** 


F2 *. 






* SET ERR MSG * 


.♦ *« 






♦INFO FROM NEST,* 


NO .♦ SOURCE 


* 


YES 


r — >*SET BRANCH REG * 


r ♦. A LETTER 




* n 




♦TO INTRP, SAVE ♦ 
♦ PTS ♦ 


♦ . 


* 


I 




♦. .♦ 








***************** 


♦ . . ♦ 




V 




FROM 


* 




**** 




**** 007C4 


**** 




* 




♦006* 007D4 


*006* 




♦ E3 




* Gl ♦ — -, 007E4 

♦ * 007F4 
**** v 007G4 


* G2 ♦— , 

* * J 
**** v 




* 






**** 










FAIL .*. 007G4 


DIGIT . *. 








Gl *. 007J4 


G2 *. 








.* 007K4 


. * *. 








YES .* INDICATE *. \ 


7 NO .♦ SOURCE 


* 


YES 




L *. FAILURE. .*< 


._ *. A DIGIT 




* n 


FROM *. COMMITTED. * / 


\ ♦. 


* 


I 


007B1 *. ? .* 


♦ . . ♦ 




1 


007C2 *. .* 


♦• . ♦ 




V 


007A4 * NO 


* 




**** 


007B4 




**** 

* 006+ 

* H2 ♦ — -, 

* * 1 
**** V 




* 

* E3 

* 








**** 










V 


ALMER .*. 






*****JJl**** ****** 


H2 *. 






♦ UNNEST UNTIL * 


. * *. 






♦ NEST LEVEL = * 


NO .* SOURCE 


* 


YES 


* QUAL LEVEL, * 

* SKIP TO NEXT * 


< *. ALPHAMERIC 




* 


*. 


* 


1 


* ALT. IN DEFIN * 


*. .* 




1 


***************** 


♦ . . * 




V 


I 


* 




**** 




**** 




* 


J 


♦ 006+ 




* E3 


V 


♦ J2 *—. 

* * J 
**** v 




* 


**** 




**** 


* * 






* E3 * 


NUMBR .*. 






* * 


J2 *. 






**** 


. * *. 








NO .* SOURCE 


*. 


YES 




< *. a FORTRAN 




* . 




*. NUMBER . 


*' 


1 




*. . * 








*. . * 




V 




* 




**** 




**** 




* 




♦ 006* 




* E3 * 




* K2 *— t 

* * 1 
**** V 




* 






**** 










STATM .*. 








K2 ♦. 








. ♦ *. 








NO .♦ SOURCE 


*. 


YES 




. *. A STATEMENT , 


* .. 




♦ . NO. 


* 


1 




♦ . .* 




I 




♦. . ♦ 




V 




* 




**** 

* 

* E3 * 














* 












**** 



INTLZ 

*****C3** ******** 

* INTLZ SOURCE * 

♦ DEF'N TABLE, ♦ 

♦ LIST POINTERS ♦ 
♦COMMIT TOP LINE* 

* * 
***************** 

**** 

♦ 006+ 
FROM ♦ D3 ♦ 
007D2* ♦ 

**** 
SYNS 

*****D3 ********** 

* * 
♦PUSH DOWN LINE ♦ 

FROM *NEST, LOAD NEW ♦ 
007B1* DEFIN PT ♦ 
007D2* ♦ 

007G2 ***************** 
007H2 

007K2**** 

007A4+006* 007E4 

007B4* E3 ♦-> 007F4 

007C4* * 007GU 

**** v 007HU 

INTRP .♦. 007J4 

E3 ♦. 007K4 

. ♦ *. 

* BRANCH *. 

TO OPERATOR .* 
♦. RTNE .♦ 



***** 

* * 

♦ # ♦ 



**** 




♦006 + 




♦ C4 ♦- 


"I 


* * 
**** 




. ♦. 


C4 


*. 


. * 




. * 




♦ . FAILURE 



***** 

♦ 006 + 

* EH* 



*****C5 ********** 

* * 

♦ SKIP TO > ♦ 
>♦ OPERATOR IN ♦- 

♦ DEFIN ♦ 

* * 
***************** 



*****D5* ********* 

♦SET OFF FAILURE* 

+ INDN, BACK UP * 

->+ SOURCE PT FOR *- 

♦ NEXT ALTER- * 

♦ NATIVE IN DEF * 
***************** 



*****E5* ********* 



***************** 



E3 ♦ 
* 
**** 



**** 






**** 


* * 






♦ 006* 


* FU ♦-> 






* F5 ♦ — -. 


* * 






* * j 


**** 






**** 


V 




LPARN V 


*****F4*4 


*** 


***** 


*****F5********** 



♦ POP UP 

♦ QUALIFICATION 

♦ INFORMATION 



PUSH DOWN 

QUALIFICATION 

INFORMATION 





***************** 






***************** 




A 


**** 






1 








* 


* 




**** 








* E3 


* 




* * 








* 


* 




1— >* E3 ♦ 


***** 






**** 






* * 


♦ 006* 




NO 








**** 


♦ GU+ 


RPARN 












* * 


G4 *. 






*****G5+ ********* 


* 


.♦ ♦. 






♦SET OFF FAILURE* 


L_ 


. ♦ *. YES 




* 


INDN, BACK UP ♦ 
SOURCE POINT ♦ 


>♦. FAILURE .♦- 






>* 




♦. . * 






* 


FOR NEXT ♦ 




♦ . . ♦ 






* 


DEFINITION ♦ 




♦. . ♦ 

* 
**** 






***************** 










**** 




♦ 006 + 








* * 




* H4 *— n 








L_>* F4 * 




* * ] 








* * 




**** 








**** 




COMIT V 












*****H4**** ****** 












* * 












♦COMMIT CURRENT ♦ 












♦ QUALIFICATION *- 


1 










* * 


J 










***************** 


V 
**** 










**** 


* 


* 








♦ 006* 


* E3 


*E3. 


,..< 006 B4 




* ju * 


* 


* 




..> 006 t:H 




* * J 


**** 






... 1..... 006 C4 




**** I 








.. ( k 006 F5 




STCMT V 








.. ) 006 G4 




*****j4* ********* 








../ 006 tiH 




♦ COMMIT ALL * 








006 JU 




♦ QUALIFICATION * 








.007 J2 




* ENTRIES FOR *- 


. 






....N. ... 007 h2 




♦ CURRENT LINE * 


1 






. . SYMB. . 006 D3 




* * 








..M 007 J4 




***************** 


V 
**** 






. .N 007 K4 

..L.....006 F2 






* 


* 




..D 006 G2 






♦ E3 


* 




..A 006 H2 






* 


* 




..K 006 J2 






**** 






..S 006 K2 

..H..... 007 A4 
..C 007 B4 

.. 'A* ... 007 C4 
..A'A 9 .. 007 D4 
. . SA. . . . 007 £.4 
.. €AA. .. 007 FU 

..$ .007 G4 

..*..... 007 H4 






















. .+TBL. . 007 B2 












..-TBL. . 007 B2 












. . ENDL. . 007 F2 














..NONE.. 006 E2 
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Chart 007. IPDSNCKR Overview 



***** 

*006* 
* Gl* 



OPERATOR 
. -TABLE 



***** 

♦ 006* 

* E3* 



***** 
*007* 
* B2* 



B2 *. 

.♦SOURCE 

NO .* = SOME 

* . TABLE 

*. ARC 
*. 



r ___. 


* 


OPERATOR . * 


*. +TABLE .* 


***** 


*. . * 


♦ 006* 


*. .* 


* Gl* 


* YES 


* * 






♦ 


\ 


r 




. *. 




D2 *. 




.* FUNC *. 




« * ASSO- * . 




*. CIATED WITH .* 




*. MATCHED .* 




*. ARG .* 




*. . * 






i 


3. .006 D3 






. . . SYMI 






...+TBL. .007 B2 






...-TBL. .007 B2 






...$ 007 G4 






...0... 


..006 E3 



***** 
*006* 
* El* 



**** 

♦ 007* 
FROM * F2 * — -, 
006E3* * I 
**** v 
SYUNS .*. 

F2 *. 
.♦AT TOP *. 
YES .* LINE OF * 

*.DEFN (END OF 

*. SCAN) .* 



*****G2********** 

* POP UP LINE * 
♦NEST AND RELOAD* 

* DEFN PT TO *- 
♦RESUME ON PREV.* 

* LINE * 
***************** 



"" V 
***** 

♦ 006* 

* E3* 



**** 


* * 


♦ 007* 


* 


FROM * H2 * — -, 

006E3* * 1 

**** V 








ITDEF .*. 




H2 *. 




**** .* *. 




* NO .* INCR. *. YES 




K2 *< *. ITER. COUNT .♦ 


""v 


♦ *.COUNT=N? .♦ 


**** *. .* 


***** 


♦ . . ♦ 


♦ 006* 


* 


* E3* 


**** 


* * 


♦ 007* 


* 


* J2 *— , 




* * | 




**** 




ITIND V 




*****j2* ********* 





***************** 



*****K2**** ****** 
**** * * 

* ♦ *BACK UP DEF PT ♦ 

* K2 ♦ >♦ IMMEDIATELY ♦ 

* * * BEYOND "(" ♦ 
**** * * 

***************** 



***** 

♦ 006* 

♦ E3* 
* * 





***** 








*007* 








* At* 








* * 








* 








I FROM 








1 006E3 








HOLLR .*. 








AH *. 








. * SOURCE *. 








NO . * WH FIELD *. 


YES 






— *. DESCRIPTOR • 


* 




V 


" *. . * 


V 


***** 


*. .* 




***** 


*006* 


*. . * 




♦ 006* 


* Gl* 


* 




* E3* 


* * 


**** 




* * 


* 


* 007* 

* B4 * — i FROM 

* * 1 006E3 
**** V 




* 
















CSTRG .*. 








BH *. 








. * *. 








NO . * SOURCE *. 


YES 




v" 


*. CHAR STRING . 


* 


— V 


*. IN QUOTES. * 




***** 


*. .* 




***** 


♦006* 


*. . * 




♦ 006* 


* Gl* 


* 




* E3* 


* * 


**** 




* * 


* 


* 007* 

* CH * — n FROM 

* * 1 006E3 
**** V 




* 
















QUOTE .*. 








C4 ♦. 








. ♦ ♦. 








NO . ♦ SOURCE ♦. 


YES 




V" 


*. = LITERAL . 


* 


""v 


♦. KEYWORD .♦ 




***** 


♦. . ♦ 




***** 


♦ 006 + 


♦. . ♦ 




♦ 006+ 


♦ Gl* 


* 




♦ E3 + 


* * 


**** 




* * 


* 


♦ 007+ 

♦ D4 ♦ — t FROM 

♦ ♦ 1 006E3 
**** V 




* 
















NOTQT .♦. 








DH ♦. 








.♦ ♦* 








NO . ♦ SOURCE ♦. 


YES 






* # = LITERAL . 


* 




v"~ 


"♦. KEYWORD .♦ 




— v 


***** 


♦. . ♦ 




***** 


♦ 006* 


♦. . ♦ 




♦ 006+ 


* Gl* 


* 




♦ E3 + 


* * 


**** 




* * 


* 


* 007+ 

* EU *—-. FROM 

* * I 006E3 
**** V 




* 
















SCAN .*. 








E4 *. 








. * *. 








NO . * CHAR A *. 


YES 




v"" 


*. HEREAFTER . 


* 


— V 


*.IN SOURCE.* 




***** 


*. .* 




***** 


♦ 006* 


♦. . ♦ 




*006+ 


* 61* 


* 




♦ E3+ 


* * 


**** 




* * 


* 


♦ 007+ 

♦ F4 ♦—- , FROM 

♦ ♦ 1 006E3 
**** v 




* 
















SCANF • .*. 








F4 ♦. 








.♦CHAR A ♦. 








NO . ♦ NOT ♦. 


YES 






* HPPFAFTPR tm 






v~" 


— — — — t m XlSLj\£jt\I: JL£jI\ XW . 

♦. SOURCE . ♦ 




""v 


***** 


♦. . ♦ 




***** 


♦ 006* 


♦ . . ♦ 




*006* 


* Gl* 


* 




♦ E3* 


* * 


**** 




* * 


* 


*007* 

* G4 * — -, FROM 

* * 1 006E3 
**** V 




* 
















ACTN .*. 








G4 *. 








.♦ACTION ♦. 








NO . ♦ CODE RTNE ♦. 


YES 




v~" 


*. SUCCESS- 


* 


"~V 


♦. FUL . ♦ 




***** 


♦. . ♦ 




***** 


*006* 


*. . * 




♦ 006 + 


* Gl* 


* 




♦ E3+ 


* * 


**** 




* * 


* 


* 007* 

* H4 * — n FROM 

* * 006E3 
**** 

MESSG V 




* 




*****H4********** 






* 


* 






* SAVE MESSAGE 


* 






* CODE IN LINE 


* 


— V 




* NEST 


* 




* 


* 


***** 




***************** 


♦ 006* 








* E3+ 




**** 




* * 




♦ 007* 




* 




* J4 *—. FROM 

* * J 006E3 
**** V 




















MNAME .*. 








JH *. 








. * *. 








YES .* SOURCE *. 


NO 




V~" 


*. FTN NAME < . 


* 


"~V 


*. 7 CHARS .* 




***** 


*. . * 




***** 


*006* 


*. . * 




♦ 006* 


* E3* 


* 




* Gl* 


* * 


**** 




* * 


* 


* 007* 

* K4 * — i FROM 

* * 1 006E3 
**** V 




* 
















NAME .*. 








K4 *. 








. * *. 








.* SOURCE *. 


NO 






*. NAME ANY 


* 


"" V 




*. LENGTH .* 






*. . * 




***** 




*. .* 




♦ 006 + 




* YES 




* Gl* 
* * 

* 




V 
***** 








♦ 006* 








* E3* 
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Chart 008. IPDSNCKR (CKRNWOLD, CKRINTLZ) 



IPDSNCKR 

****A3********* 

* ♦ 

* ENTRY * 

* * 
*************** 



CKRNWOLD V 

**B3******* 
♦OBTAIN LOC * 
♦OF WORK AREA 
♦ FROM PARAM 
♦ LIST 



*********** 



V 
.♦. 

C3 ♦. 
.♦ NEW ♦. 
.♦SOURCE STMT+. NO 

♦.(CHKR ERR SW .♦ 

♦. OFF) . ♦ 



CKRINTLZ V 

♦♦D3+++++++ 

♦ SET OFF ♦ 
♦FAILURE SWTCH* 

♦g STMNT GLOBAL ♦ 
♦COMMIT SWITCH+ 

♦ * 
*********** 



*****E3********** 
♦INITLZ NEST AND + 

♦ QUAL LIST ♦ 

♦ POINTERS, ♦ 

♦ INITLZ MSG ♦ 

♦ TABLE POINTER ♦ 
***************** 



*****P3********** 

♦ ZERO NEST AND ♦ 

♦ QUAL INFO BUT ♦ 

♦ COMMIT QUAL ♦ 

♦ INFO ♦ 

♦ * 
***************** 



*****q3 ********** 

♦ OBTAIN LOC OF ♦ 

♦ DEFN TBL FROM ♦ 

♦ PARAM LIST, ♦ 

♦ INITLZ DEF PT ♦ 

♦ TO BEG OF TBL ♦ 
***************** 



*****n3********** 

(BEGINNING . ♦ INITLZ SRC PT ♦ 

PNTR PTS TO . ♦ FROM PARAM ♦ 

STMNT ♦ LIST. THEN TO ♦ 

FIELD) . ♦ 1ST NON-BLANK ♦ 

♦ CHARACTER ♦ 

***************** 



CKRCONTN V 

**D5******* 

* * 

♦ SET OFF 
♦ FAILURE 

♦ SWITCH 

* * 
*********** 



*****F5* ********* 

♦ RESTORE ♦ 
♦CHECKER'S REGS ♦ 
♦(INCL POINTERS + 
♦AND BRANCH REG)* 

* * 
***************** 



V 

BRANCH REG SET . **** H 5*+++++++* 
PRIOR TO RETURN FOR . ♦ ACCORDING TO ♦ 
MESSAGE ISSUANCE ..... + BRANCH REG ♦ 

* * 

*************** 



***** 

♦ 013+ 

♦ A2+ 
♦ * 
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Chart 009. IPDSNCKR (CKRINTRP) 



***** 

♦ 009* 

* A3* 



FROM 

010H3 

010K2 

010F4 

010D5 

010J5 

011B1 

011K5 

012G2 

012E4 

013G2 

014G4 

015F3 

016K4 

017E5 

018H4 

019J5 

020E3 

020E4 

021F3 

021E4 

022K3 

033C1 

033E4 

034C3 

035D4 



****A3********* 



*************** 



**B3******* 

* OBTAIN * 

* OPCODE FROM * 
♦THE DEFINITION 

* TABLE * 

♦ * 
*********** 



* UPDATE DEFN * 

* TABLE POINTER * 

* BEYOND THE * 

* OPCODE * 

* * 
***************** 



E3 *. 
. * *. 

*. 
OP- CODE . * 
. * 
*. . * 



***** 
♦009* 
* E4* 



CKROPFAL V 




**E4******* 




* SET * 




* WKASFALL TO * 




* INDICATE * 


* 


* UNDEFINED * 


* OP- CODE * 


***** 


*********** 


*035* 




* H3* 



***** 




* * 




* # * 




* * 




* 




...00... 


.010 Al 


...02... 


. 010 A5 


...04... 


.010 F3 


...06... 


. 010 A2 


...08... 


. 010 A4 


...10... 


. 011 Al 


...12... 


. 011 A3 


...14... 


. 012 A2 


...16... 


. 012 A4 


...18... 


. 013 A2 


...20... 


. 014 A2 


...22... 


. 014 A4 


...24... 


.015 A2 


...26. .. 


. 015 Al 


...28... 


.015 A3 


...30... 


. 016 A2 


...32... 


.017 Al 


...34... 


. 018 A3 


...36... 


.019 A3 


...38... 


. 020 A2 


...40... 


.020 A4 


...42... 


.021 A3 


...44... 


. 021 A4 


...46... 


. 022 A3 


...48... 


. 033 Al 


...50... 


. 033 A3 


...52... 


.033 A3 


...54... 


. 034 A3 


. . . NONE. 


.009 E4 
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Chart 010. IPDSNCKR (CKRLBRCE, CKRLPARN f CKROR, CKRRPARN, CKRRBRCE) 



***** 
*oio* 

* Al* 
* * 



CKRLBRCE I 

****A1 ********* 

* * 

* CKRLBRCE * 

* * 
*************** 



*****Bl********** 

* * 

* OBTAIN FALSE, * 

* TRUE DISPL'S * 
*FROM DEFN TABLE* 

* * 
***************** 



*****ci********** 

* * 
♦UPDATE DEFN TBL* 
♦POINTER BEYOND * 

* F, T DISPL'S * 

* * 
***************** 



***** 

♦ 010+ 

♦ A2* 



FROM 
009E3 



CKRLPARN 

****A2********* 

* * 

* CKRLPARN ♦ 

* * 
*************** 



*****B2**** ****** 

* * 

* OBTAIN TRUE ♦ 

* DISPLACEMENT ♦ 
♦FRDM DEFN TABLE* 

* * 
***************** 



*****C2**** ****** 

♦ UPDATE DEFN ♦ 
♦TABLE PT BEYOND* 

♦ FALSE * 

* DISPLACEMENT * 

* * 
***************** 



***** 
♦010* 
* A4* 



CKRRPARN 

V 
****AU* ******** 

* * 

* CKRRPARN * 

* * 
*************** 



***** 

♦ 010* 

* A5* 
* * 



CKRLQUAL 

*****Q2*** ******* 

* UPDATE QUAL. * 

* LIST POINTER * 

* FOR ANOTHER * 

* QUAL'N * 

* * 
***************** 



E2 *. 
.♦IS ♦. 
.♦THERE SPACE*. NO 

. IN LIST FOR .* 

*. ANOTHER .* 
♦.QUAL .* 

"**YES 



CKRQOFLO 

*****E3** ******** 

♦CKRLOFLO 013D4* 



DID 
LAST TEST 
. FAIL 



**C4******* 

* * 
SET OFF 
FAILURE 
SWITCH 

* * 
*********** 



*****£)4* ********* 
*BACK UP SOURCE * 

* PT TO VALUE * 

* SAVED IN QUAL * 

* INFO * 

* * 
***************** 



CKRRBRCE 

****A5********* 

* * 

* CKRRBRCE * 

* * 
*************** 



*****B5* ********* 



♦POSSIBLE BACKUP* 
* * 

***************** 



*****C5 ********** 

* POP UP QUAL * 
♦LIST INTO QUAL * 
♦INFO AND ADJUST* 

* QUAL LIST PT * 

* * 
***************** 



->♦ GET MORE LIST ♦ 

♦ SPACE OR END ♦ 

♦ STAT ANAL ♦ 
***************** 

**** 

♦ 010+ 

♦ F3 ♦- 



*****F2********** 

♦ PUSH DOWN ♦ 

♦ QUALIFICATION ♦ 

♦ INFORMATION ♦ 

♦ INTO LIST ♦ 

♦ * 
***************** 



* * 1 

**** [ 

ROR I 



CKROR 

****F3********* 

* * 

* CKROR ♦ 

* * 
*************** 



V 

. ♦. 

G3 ♦. 

.♦ ♦. 

. ♦ DID ♦. 

. PRECEEDING . 

♦.TEST FAIL.+ 

♦. . ♦ 



CKRSVCTR V 

*****E4* ********* 

♦ SAVE QUAL ♦ 
♦ITERATION COUNT* 

♦ FOR POSSIBLE * 
♦ACTION ROUTINE ♦ 

♦ USE ♦ 
***************** 



*****F4* ********* 

* POP UP QUAL ♦ 
♦LIST INTO QUAL ♦ 
♦INFO AND ADJUST* 

* QUAL LIST PT * 

* * 
***************** 

| CKRINTRP 
I **** 

♦ 009* 
«-->♦ A3 ♦ 

* * 
**** 



DID * NO 


LAST TEST . ♦ ■, 


FAIL . * 


*. * I 


*. .* V 


* YES ***** 




♦ 009* 




CKRINTRP* A3* 




* * 




* 



*****£5 ********** 

* BACK UP CURR * 
♦SOURCE PT FROM * 
♦QUAL SOURCE PT * 

♦ SAVED * 



***** 

♦ 035* 

* A3* 



*****H2** ******** 
♦BUILD NEW QUAL ♦ 

♦ INFO WITH ♦ 
♦SOURCE PT, DEFN* 

♦ PT. LEVEL OF ♦ 

♦ LINE NESTING ♦ 
***************** 



*****j2**** ****** 

♦ PLACE FALSE ♦ 

♦ (AND TRUE) ♦ 

♦ DISPL(S) IN ♦ 

♦ QUALIFICATION ♦ 

♦ * 
***************** 



♦ NO 



CKRALTOK 

*****H3** ******** 
♦UPDATE DEFN TBL* 

* PT FROM QUAL * 

* TRUE DISPL * 

* <TO">") * 

* * 
***************** 



***** 

♦ 009* 

* A3* 



**G4******* 

* * 
SET OFF 
FAILURE 
SWITCH 

* * 
*********** 



***** G 5**** ****** 
♦BACK UP SOURCE * 

* PT TO VALUE * 
->♦ SAVED IN QUAL * 

* INFO * 

* * 
***************** 



*****H5 ********** 

* UPDATE FALSE * 

* DISPLMNT (IN * 
♦QUAL INFO) PAST* 

* NEXT * 

* ALTERNATIVE * 
***************** 



*****j5* ********* 

* * 

* UPDATE DEFN * 

* TABL POINTER * 

* BEYOND »OR' * 



**K2******* 




* ZERO QUAL * 
* ITERATION * 






♦COUNT. SET OFF ♦ — 
♦ QUAL COMMIT ♦ 


v 


♦ SWITCH ♦ 


***** 


*********** 


♦ 009+ 




♦ A3 + 



***** 
♦009* 
♦ A3* 
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Chart Oil, IPDSNCKR (CKRCOMIT, CKRSTCMT) 



***** 
♦on* 

* Al* 



***** 

♦ Oil*- 

* A3* 



****A1 ********* 

* * 

* CKRCOMIT * 

* * 
*************** 



**B1******* 
* 
SET ON * 

(UALIFICATION * 

iOMMIT SWITCH* 
* 

*********** 



***** 

*009* 

* A3* 

* * 



****A3********* 

* * 

* CKRSTCMT * 

* * 
*************** 



**B3******* 

* SET ON * 

* STATEMENT * 
* GLOBAL COMMIT * 

* SWITCH * 

* * 
*********** 



V 

. *. 

C3 *. 

. * ANY *. 

.* QUAL (ALT *. NO 

*. OR OPT) AT .* 

*.CURR NEST.* 
♦ .LEVEL.* 



* YES 



*****D3** ******** 



*INITL Q WORK PT* 
*= QUAL LIST PT * 



***************** 



CKRTOPQL 

*****C4********** 

♦SET QUAL LEVEL * 

* NO. = TO * 
>* IGNORE ALL *- 

* PREVIOUS * 

* ALTERNATIVES ♦ 
***************** 



*****C 5* ********* 

* REINITLZ QUAL ♦ 

* LIST PT TO * 
->* PHYSICAL TOP OF* 

* QUAL LIST * 

* * 
***************** 



***** D 5* ********* 
♦REINITLZ TOP OF* 

* Q LIST TO * 
♦PHYSICAL TOP OF* 

* Q LIST ♦ 

* * 
***************** 



**E3******* 

* * 

* COMMIT QUAL * 
* ENTRY AT Q * 

* WORK PT * 

* * 
*********** 



F3 *. 

.♦IS QUAL*. 

.* ENTRY AT *. 

. CURR LVL OF . 

*. NESTING .* 



*****G3** ******** 

* * 
♦SET QUAL LEVEL ♦ 

♦ NO. AT Q WORK ♦ 

♦ PT=1 ♦ 

* * 
***************** 



*****H3** ******** 

* * 

* UPDATE Q WORK * 
*PT TO NEXT QUAL* 

* ON LIST * 

* * 
***************** 



*SET QUAL LEVEL * 
->* NO. AT Q WORK * 

* PT. = * 

* * 
***************** 



*****G4* ********* 

* UPDATE Q WORK * 
*PT AND SAVE AS * 

* NEW TOP OF Q * 
*LIST (FOR SPACE* 

* ADJ'G) * 
***************** 



*****£[ Ij* ********* 



*SET QUAL LEVEL * 
* NO. = 1 *- 



***************** 



CKRNSTL1 

**H5******* 

* SET ON * 
♦QUALIFICATION* 

>♦ COMMIT SW ♦ 

♦ (COMMIT THE * 

♦ QUAL) ♦ 
*********** 



*****j5********** 



***************** 



*****K5********** 

♦ REINITIALIZE ♦ 
♦NEST LIST PT TO* 

* TOP OF NEST ♦ 

♦ LIST ♦ 

* * 
***************** 

I CKRINTRP 
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***** 

♦ 009* 

* A3* 
* * 



Chart 012. IPDSNCKR (CKRITIND, CKRITDEF) 



***** 

♦ 012* 

* A2* 



***** 

♦ 012* 

* AH* 



* * 

* CKRITIND * 

* * 
*************** 



*****B2* ********* 



♦INCR. »THE QUAL * 
♦ITERATION COUNT* 



***************** 



CKRREPET 

** * **e2**** ****** 

* SAVE NEWLY * 
♦UPDATED SOURCE * 

* PT. IN QUAL *<- 
♦(FOR BACKUP IF * 
♦ITERATN FAILS) * 
***************** 



**F2******* 

* * 

* SET OFF * 
* QUALIFICATION * 

* COMMIT SW * 

* * 
*********** 



*****G2**** ****** 
♦BACK UP DEF PT ♦ 
♦FROM QUAL TO PT+ 

♦ IMMED BEYOND ♦ 

♦ THE ITER'N * 

♦ OPENING "(" * 
***************** 



****A4********* 

* * 

* CKRITDEF * 

* * 
*************** 



*****£4********** 

* * 

* OBTAIN N, THE * 
♦ITERATION LIMIT+ 
♦FROM DEF« N TBL ♦ 

* * 
***************** 



*****QH********** 



♦UPDATE DEFN TBL+ 
♦ PT PAST .N. ♦ 



***************** 



*****D4*** ******* 



♦ INCR THE QUAL ♦ 
♦ITERATION COUNT+ 



***************** 



EH *. 

.♦ IS ♦. 
♦ ITER* N ♦ 

COUNT UP TO 
♦. LIMIT N .♦ 



YES 
CKRINTRP 



***** 
*009* 
♦ A3 + 



CKRINTRP 



***** 
♦009* 
* A3* 
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Chart 013. IPDSNCKR (CKRSYNS, CKRLOFLO) 



***** 

*013* 
* A2* 



FROM 

001H3 

009E3 



****A2********* 

* * 

* CKRSYNS * 

* * 
*************** 



*****£2**** ****** 

* * 
♦SET UP SPECIAL * 

* DEFN PT FROM * 

* DEF PT * 

* * 
***************** 



**** 

♦ 013* 

* C2 *-> 



**** 
CKRSYNST . . 

C2 *. 

.* SPACE *. 

.♦IN LIST FOR*. 

♦.ANOTHER LINE . 

♦. NEST .♦ 



CKRNOFLO 
*****C3 
♦CKRLOFLO 



********** 



* >* GET MORE LIST ♦ 

♦ SPACE OR END ♦ 

♦ STAT'S ANAL ♦ 
***************** 



*****D2** ******** 
♦PLACE CURR NEST+ 
♦AT END OF LIST ♦ 
♦AND UPDATE NEST+ 

♦ LIST PT ♦ 

* * 
***************** 



*****E2 ********** 

* UPDATE ACTUAL ♦ 
♦DEF PT AND SAVE+ 

♦ IN (NEW) NEST ♦ 

♦ FOR RETURN ♦ 

* * 
***************** 



*****F2********** 

* SAVE DISPL TO * 

* NEW LINE IN ♦ 
♦(NEW) NEST AND ♦ 
♦MOVE TO DEF PT ♦ 

* * 
***************** 



****Z)H********* 

* * 

* CKRLOFLO ♦ 

* * 
*************** 



V 






. ♦. 




CKROFLOW 


E4 ♦. 




*****E5 ********** 


.♦IS ♦. 




♦SET ERROR PT TO* 


♦ACTUAL TOP ♦. 


YES 


♦ CURR SRC LOC, ♦ 


QUAL LIST AT . 


* 


>* SET MSG CODE * 


♦.PHYS TOP .♦ 




♦FOR STATM. ANAL+ 


♦ .LIST .♦ 




♦EXCEEDS TBL LMT+ 


♦ . . ♦ 




***************** 


♦ NO 




| 








1 CKRTMRET 








***** 








♦ 035* 


1 


r 




* J3* 



*****FH* ********* 

* MOVE ALL QUAL * 
*LIST ENTRIES TO* 

* FILL GAP AT ♦ 
♦TOP, AD J ST QUAL+ 

* LIST PT ACC ♦ 
***************** 



4c* ***G2 + ********* 



***************** 



****GH********* 

* * 

* RETURN ♦ 

* * 
*************** 



***** 

♦ 009+ 

♦ A3 + 
* * 
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Chart 014. IPDSNCKR (CKRMNAME, CKRNAME) 



***** 
*om* 

* A2* 



****A2** ******* 

* * 

* CKRMNAME * 

* * 
*************** 



**B2******* 

♦ * 

* INDICATE * 
* LONG NAME NOT * 

* ALLOWED * 

* * 
*********** 



***** 
*014* 
* AU* 



****A4********* 

* * 

* CKRNAME * 

* * 
*************** 



** B H******* 

* * 
INDICATE 
LONG NAME 

ALLOWED 

* * 
*********** 



*****C3********** 
♦CKRGTNB1 036A3* 

* . * 

* GET NEXT * 
♦NON- BLANK CHAR * 

* FROM SOURCE * 
***************** 



D3 *. 
.* IS *. 

NO .*SOURCE CHAR*. YES 

r *. ALPHABETIC .* 

V *.A-Z OR $ .* 

***** *. .* 

*035*CKRFAIL *. .* 
* A3* * 

* * 



*****QH ********** 

* SAVE LOC OF * 

* CURR SOURCE * 
->* CHAR FOR POSS * 

♦ERROR POINTER, * 
♦INITLZ LENGTH=1* 
***************** 



*****g3** ******** 

* UPDATE SOURCE * 
♦POINTER BEYOND * 
*LAST CHARACTER * 

* OBTAINED * 

* * 
***************** 



*****F3 ********** 
*CKRGTNB1 036A3* 

* * 

* GET NEXT NON- * 
*BLANK CHARACTER* 

* FROM SOURCE * 
***************** 



V 
« *. 

G3 *. 

.* IS *. 

. * SOURCE *. 

. ALPHAMERIC . * 

*.A-Z. $ OR.* 

*. 6-3 .* 

*. . * 

■ YES 



NO 
CKRINTRP 



*****H3** ******** 



♦ADD 1 TO LENGTH* 



***************** 



***** 

♦ 009* 

* A3* 



*****G5* ********* 

* SET MESSAGE * 

* CODE FOR NAME * 
->*TOO LONG (ERROR* 

* PT ALREADY AT * 

* 1ST LETThR) * 
***************** 



***** 

♦ 035* 

* F3* 



V 
. *. 

J3 *. 



K3 *. 

. * *. 

YES .* LONG *. NO 

*. NAME .* 1 

*. ALLOWED .* V 

*. .* ***** 

*. .* *035* 

* * A3* 

CKRFAIL * * 
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Chart 015. IPDSNCKR (CKRDIGIT, CKRLETTR, CKRALMER) 



***** 

♦ 015* 

* Al* 



***** 
♦015* 
* A2* 



***** 
*015* 
* A3* 



****A1********* 

* * 

* CKRDIGIT * 

* * 
*************** 



* GET NEXT NON- * 
♦BLANK CHAR FROM* 
*SRC (6 ITS LOC>* 
***************** 



V 

. *. 

CI *. 

. * SOURCE *. 

* CHARACTER *. NO 

IN RANGE . * -i 

*. THRU 9 .* 



****A2********* 



*************** 



*****B2********** 
♦CKRGTNBl 036A3* 

* GET NEXT NON- * 
♦BLANK CHAR FROM* 
♦SRC (6 ITS LOO* 
***************** 



V 
.*. 

C2 *. 

.♦SOURCE *. 
* CHARACTER * 

HIGHER THAN 
*. Z .* 



****A3 ********* 

* * 

* CKRALMER * 

* * 
*************** 



*****33********** 

♦CKRGTNBl 036A3* 

* * 

♦ GET NEXT NON- ♦ 
♦BLANK CHAR FROM* 
♦SRC U ITS LOO* 
***************** 



V 
CKRALPHA .♦. 

C3 ♦. 

.♦SOURCE ♦. 

.♦ CHARACTER * 

>*. LOWER THAN 

♦. A .* 



♦ SOURCE 
CHARACTER 



*. 



***** 

♦ 035+ 

♦ A3* 



♦ YES 

I CKRFAIL 

***** 

♦ 035+ 

♦ A3+ 

* * 



.♦ CKRFAIL ♦♦♦♦* 

. * *035* 

YES ♦ A3+ 



IS IT 
Z OR 0-9 



.♦ CKRFAIL ♦♦♦♦♦ 

. ♦ +035 + 

YES ♦ A3* 



*****F3*** ******* 

♦ UPDATE SOURCE ♦ 
♦POINTER BEYOND ♦ 

♦ CHARACTER ♦ 

♦ OBTAINED ♦ 

♦ * 
***************** 



***** 

♦ 009 + 

* A3* 
* * 
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Chart 016. IPDSNCKR (CKRNUMBR) 



FROM 
009E3 



* * Bl_ ******* 

♦ SET ERR CD * 

* FOR INT TOO * 
— >* LONG, SET BR * 

* REG TO * 

* CKRINTOK * 
*********** 



***** 

♦035* 

* G3* 

* * 



****A2********* 

* * 

* CKRNUMBR * 

* * 
*************** 



*****E2* ********* 

* INITIALIZE * 

* LDZCT, DGTCT, * 
♦ZROCT = 0, SET * 

* ERROR PT FROM * 

* CURR SRC PT * 
***************** 



C2 *. 

. ♦ NEXT *. 

. * SOURCE * 

. CHARACTER A 

*. DIGIT .* 

*. . * 

*. . * 



**** 
CKRINTOK 

*****D1* ********* 

* * 
♦SET TYPE SW TO ♦ 

* INTEGER- SET ♦ 
♦LENGTH SW TO E ♦ 

* * 
***************** 



NO 
CKRINTEG . ♦. 

El ♦. 
. ♦INTEGER*. 
YES .♦LARGER THAN+. 
♦. 2, 147, 483, 647. ♦<- 



SCAN DIGITS, 
INCREMENTING 
LDGCT BY NO 
OF LEADING 
ZEROES, AND 
INCREMENTING 
DGTCT BY 
NO. OF 
REMAINING 
DIGITS 



♦ SOURCE ♦. 

CHARACTER E . ♦<- 
♦. OR D .♦ 



*****G1* ********* 

* * 

♦ SAVE DGTCT AS ♦ 
♦TENPW, POWER OF+ 

♦ TEN ♦ 

* * 
***************** 



**** 
CKREXPN 

*****f£l********** 

♦ * 

♦ SET LENGTH SW ♦ 

♦ TO E OR D ♦ 

♦ APPROPRIATELY ♦ 

♦ * 
***************** 



CKREXPON V 

*****jl********** 

♦SET ERROR PT TO+ 

♦ EXPONENT, ♦ 
♦RECORD AND 5KIP+ — 

♦ SIGN, IF ANY, ♦ 
♦OTHERWISE POS. ♦ 
***************** 



EXPON < 3 DGTS, . 

10++-79 < 
NUMBER <10++77 . 



**** 

* * 
* El ♦ 

* * 
**** 



CKRTMIXD . ♦. 

F2 ♦. 
.♦ NEXT ♦ 
NO .♦ SOURCE 

♦. CHARACTER . 

♦. DECIMAL 
♦ .POINT. ♦ 



CKRTFRAC . ♦ . 

C3 ♦. 

.♦SOURCE ♦. 

.♦CHARACTER A+. 

>*. DECIMAL 

♦ . POINT . ♦ 



**** 

♦ * 

♦ D3 ♦-> 

♦ * 
**** 

CKRDECPT 

*****D3********** qh * 4 

♦ ♦ .♦ ARE *. 

♦ SAVE DGTCT AS ♦ .♦ NEXT TWO 
♦TENPW, POWER OF+ >♦. CHARS A LGL. 

"*"" * ♦. OR REL . 

*.OPER 



**** 

* * 

* C5 ♦ 

* * 
**** 



CKRNOTNO V 

*****C5********** 

♦ SET ALL 3 K ♦ 

♦ SWITCHES ON: ♦ 
>* INTEGER, D ♦ •, 

♦ FIELD TESTED ♦ I 

♦ NOT A NUMBER ♦ I 
***************** y 

A ***** 

CKRFAIL+035* 

A3* 



* * 



NO 



TEN 

* * 

***************** 



.* 

NO 



D5 *. 
.♦ WERE ♦. 
'. YES .*ANY DIGITS *. YES 

.* >*. FOUND (DGTCT .* -, 

♦ . + LDZCT .♦ I 
♦ . >0> .♦ I 



CKRINTEG* 



*****£!;********** 



SPACE PAST 
DECIMAL POINT 



***************** 



El* 
* * 
**** 



**E5******* 

*SET ERR CD ♦ 

♦FOR NO. MUST ♦ 

♦ HAVE DIGIT (S) ♦ -, 

♦SET BR REG TO* I 
♦ CHRRDORE ♦ I 
*********** v 
A ***** 
CKRTSTML*035* 
* G3* 
* * 



* 


**** 




* 




♦ D3 




* 




**** 


. *. 




G2 ♦. 




.♦ NEXT ♦. 




.♦ SOURCE ♦. 


NO 


->♦. CHARACTER A 


* 1 


♦. DIGIT ..♦ 


1 


♦. . ♦ 


J 


♦. .♦ 


V 


♦ YES 


**** 






* 






♦ K2 






* 






**** 



**** 

* * 

* G3 ♦ 

* * 
**** 



.♦ STATEMENT *. NO 

♦.GLOBAL COMMIT. ♦ 

♦ .SWITCH ON. ♦ 



**H3******* 



***. 
* 
->♦ C5. 

* 
**** 



SCAN DIGITS 
INCREMENTING 
DGTCT FOR 
EACH DIGIT. 
ALSO INCREMENT, 
ZROCT FOR 
EACH ZERO 
SCANNED. 
TENPW FOR A 
SIGNIFICANT 
ZERO (NO 
PRECEDING 
NON-ZERO 
DIGITS) 



.♦ COMMITTED ♦ 
♦.TO A NUMERIC 
♦ .CONSTANT . * 



**** 

* * 

* C5* 

* * 
**** 



.* WERE 
->*. ANY DIGITS 
♦. FOUND . 



**** 

* 

♦ H4 ♦-■ 



■1 



**** 

CKRREAL 

*****H4********** 



* * 




♦ SET BRANCH ♦ 




♦SET TYPE SWITCH+ 








.* SOURCE * Y] 


♦EVALUATE THIS 6+ 




♦ REG TO 


*- 




♦ TO REAL ♦ 








♦. CHARACTER E . ♦— 


♦ CONSEC DIGITS ♦ 




♦ CKRREAL ♦ 


J 


* * 








♦ . OR D . ♦ 


♦FOR EXPON VALUE ♦ 




* * 




I 


* * 








*. * 


***************** 




*********** 




V 


***************** 








♦. . ♦ 












***** 












♦ NO 


**** 






**** 




♦ 035^ 














* 


* * 






* * 




♦ G3 + 














* 


* J2 ♦-> 






* J3 *— , 

* * 1 
**** v 




* * 














* 


* * 








* 
















**** V 








'"T 












CKRCKSIZ .♦. 




. ♦. 






. ♦. 








ir 


J2 ♦. 




J3 ♦. 






J4 *. 








*****j5********** 


.♦EXPON. ♦. 




. ♦ ♦. 






. * ♦. 








♦ SET LENGTH SW ♦ 


.♦VALID. NO. ♦. YES 


.♦ STATEMENT ♦. 


NO 


.♦ DECIMAL ♦. YES 






♦TO E OR D BASED+ 


— >*. WITHIN .♦- 


1 


♦.GLOBAL COMMIT. 


*. 


. 


♦ . POINT . ♦- 





- 




♦ON SUM OF LDZCT+ 


♦. RANGE .♦ 
♦. .♦ 




♦. SW ON „♦ 
♦. . ♦ 




1 


♦ . . ♦ 
*. . ♦ 




1 




♦+ DGTCT. EXPON ♦ 
♦ VALUE=0 ♦ 


♦ . . ♦ 


V 


*. .* 




V 


♦. . ♦ 




V 




***************** 


♦ NO 


**** 


♦ YES 




**** 


♦ NO 


**** 






**** 




* * 








* * 


**** 




* 




* 






* * 




♦ H4 ♦ 








♦ C5 ♦ 


* * 




* 


J3 


* 






♦ K2 ♦-> 




* * 








* * 


♦ K4 *-> 




* 




* 






* * 




**** 








**** 


* * 




**** 






**** 














**** 










V 


V 




7 




CKRTVALU V 








. ♦. 


*****K2+++ ******* 




*****K3********** 




*****K4 ********** 








K5 ♦ 


♦SET ERROR CODE ♦ 




♦DIAG INVAL DEC 


* 




♦SET VALUE SW TO+ 








.♦IS ♦. 


♦APPROP. (ERROR ♦ 




♦PT(S) & EXTRAN. 


* 




♦ NONZERO IF ♦ 






YES ,+NUMBER ZERO+ 


* PT AT NO. OR ♦ 




♦EXPNTS, SPACING+- 




->+DGTCT>ZROCT TO ♦ 








-♦. DGTCT = ♦ 


♦EXPON, IF ANY) ♦ 




♦PAST REMAINDER 


* 




♦ZERO, OTHERWISE^ 






| 


♦ . ZROCT . ♦ 


* * 




♦ OF CONSTANT 


* 




* * 






I 


♦. ♦ 


***************** 




***************** 




***************** 






V 


♦. . ♦ 


1 










| 




* 

* 
* 


l>*** * NO 


1 










1 CKRINTRP 


H4 


♦ 1 CKRCKSIZ 
1= **** 


**** 










***** 




***=( 


* * 










♦ 009+ 








* * 


* G3 ♦ 










♦ A3+ 








* J2 * 


* * 










* * 








* * 


*i 


!■** 












4 


* 








*< 


>** 



**** 

* 

HI* 

* 

**** 
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Chart 017. IPDSNCKR (CKRSTATM) 



***** 

♦ 017* 

* Al* 
* * 

* 

iFROM 
009E3 

****Al* ******** 

* * 

* CKRSTATM * 

* * 
*************** 



* GET NEXT NON- * 
♦BLANK CHAR FROM* 

* SOURCE * 
***************** 



*****ci********** 

* SAVE LOC OF * 

* CURR SOURCE * 

* CHAR AS POSS. * 

* ERROR PT, SET * 

* DIGIT COUNT=0 * 
***************** 



**** 

* * 

* D3 * 

* * 
**** 



* SOURCE *. 

CHARACTER + . 

*. OR - .* 



.* SOURCE *. 
->*. DIGIT 0-9 .* 
*. .* 



*****£!********** 

* TO INVALIDATE * 

* DIGIT COUNT, * 

* INCR. DIGIT * 

* COUNT BY 2048 * 

* * 
***************** 



*****fl ********** 

* * 

* UPDATE SOURCE * 

* PT BEYOND THE * 

* SIGN * 

* * 
***************** 



***** 

♦ 035* 

* A3* 



*****£3** ******** 

* * 

* UPDATE SOURCE * 
*PT BEYOND LAST * 

* CHAR OBTAINED * 

* * 
***************** 



*****F3** ******** 

*CKRGTNB1 036 A3* 

* * 

* GET NEXT NON- * 
♦BLANK CHARACTER* 

* FROM SOURCE * 
***************** 



. * SOURCE *. 

*. CHARACTER . 

♦.DIGIT 0-9. ♦ 



*****p(l********** 

♦ INCR. DIGIT ♦ 

♦ COUNT BY 1 ♦ 

♦ UPDATE SOURCE ♦ 
♦PT BEYOND LAST ♦ 

♦ CHAR ♦ 
***************** 



♦ < ♦ 
DIGIT COUNT . 

♦ . < 6 . ♦ 



NO ***** 
CKRINTRP+009+ 
♦ A3 + 



*****G1 ********** 

♦CKRGTNB1 036A3+ 

* * 

♦ GET NEXT NON- ♦ 
♦BLANK CHARACTERS 

♦ FROM SOURCE ♦ 
***************** 



-♦ GET NEXT NON- ♦ 
♦BLANK CHARACTERS 
♦ FROM SOURCE ♦ 
***************** 



CKRBDSNO 

*****H5********** 

♦ SET MESSAGE ♦ 

♦ CODE FOR ♦ 

♦ INVALID STMNT ♦ 

♦ NO. (ERR PT IS ♦ 

♦ AT 1ST CHAR) ♦ 
***************** 



***** 
♦035+ 
♦ F3+ 
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Chart 018. IPDSNCKR (CKRHOLLR) 



***** 

*018* 

* A3* 

* * 

* 

1FROM 
009E3 

****A3********* 

* * 

* CKRHOLLR * 

* * 
*************** 



*****B3** ******** 

♦CKRGTNBl 036 A3* 

* * 

* GET NEXT NON- * 
♦BLANK CHARACTER* 

* FROM SOURCE * 
***************** 



C3 *. 




.* IS *. 




* SOURCE *. NO 




CHARACTER A .* 


V 


*. DIGIT . * 


*.<0-9).* 


***** 


*. . * 


♦ 035* 


* YES 


* A3* 




* * 


CKRFAIL 


* 



*****D3********** 
♦CKREVALU 031D4* 

* * 

* COMPUTE VALUE * 
*OF CONSEC DGTS * 

* AS WIDTH, W * 
***************** 



E3 


*. 




.*IS NEXT*. 




.♦NON-0 CHAR *. NO 








*. ' H' .* 


" V 


*. . * 


***** 


*. . * 


♦ 035* 


* YES 


* A3* 






* * 




CKRFAIL 


* 



*****P3** ******** 

* * 

* UPDATE THE * 
♦SOURCE POINTER ♦- 

* BEYOND THE H ♦ 

* * 
***************** 



CKRSKIPH 

***** G 3 ********** 

♦CKRSKANY 037A1+ 

* * 

♦ OBTAIN LOC ♦<- 
♦BEYOND THE NEXT* 
*W SOURCE CHARS * 
***************** 



H3 *. 

. * WAS *. 
.♦SOURCE END ♦ 
. ENCOUNTERED 



CKRINVLW 

***** F 5* ********* 

♦SET ERROR CODE ♦ 
♦ FOR WIDTH NOT * 

>*IN RANGE 1-255 ♦ 

♦(ERROR PT AT W) ♦ 



***************** 



CKRREINT 



***** 

♦ 035+ 

* F3 + 



♦. 



. ♦ 

, .♦ 
♦ YES 



*****#H********** 



***************** 



CKRINCPH 

*****J3********** 
♦SET ERROR CODE + 
♦FOR INCOMPLETE ♦ 
♦H FIELD (ERROR ♦ 

♦ PT AT W) ♦ 

* * 
***************** 



***** 

♦ 009* 

♦ A3* 
* * 



CKRWHIGH V 

*****H5********** 

♦SET ERROR CODE * 

* FOR WIDTH NOT * 
*IN RANGE 1-255 * 
♦(ERROR PT AT W) * 

* * 
***************** 



**j5******* 

♦SET BRANCH * 

♦ REG = * 

♦ CKRSKIPH TO ♦ 

♦SPACE W CHARS* 

♦ ON RECALL ♦ 

*********** 



***** 

♦ 035+ 

♦ J3+ 
* * 



***** 
♦035+ 
♦ G3+ 
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Chart 019. IPDSNCKR (CKRCSTRG) 



***** 

*019* 
* A3* 



1FROM 
009E3 

****&$********* 

* * 

* CKRCSTRG * 

* * 
*************** 



* GET NEXT NON- * 
♦BLANK CHARACTER* 

* FROM SOURCE * 
***************** 



C3 *. 

.♦SOURCE *. 

.♦CHARACTER = 

SINGLE 

♦. QUOTE . 



"" V 
***** 

♦ 035+ 

♦ A3 + 
* * 



*****£)3********** 

♦ SAVE POSSIBLE ♦ 

♦ ERROR PT TO ♦ 

♦ INITIALIZE ♦ 
♦STRING CTR = ♦ 

♦ * 
***************** 



CKRUPDCS V 

*****E3 ********** 

* UPDATE SOURCE * 
♦POINTER BEYOND ♦ 

♦ CHARACTER ♦ 

♦ OBTAINED ♦ 

* * 
***************** 



***** F 3** ******** 

*CKRGTANY 037 A3* 

* * 

♦ GET NEXT ♦ 
♦CHARACTER FROM ♦ 

♦ SOURCE ♦ 
***************** 



*****Q2* ********* 

* * 

♦ INCREMENT ♦ 
♦STRING COUNTER ♦ 

♦ BY 1 ♦ 

* * 
***************** 



G3 



*. 



.♦ SOURCE ♦. YES 

♦. CHARACTER = .♦ 

♦. QUOTE ' .♦ 
♦. . ♦ 
♦ . .♦ 
♦ NO 



CKRFDQTE 

*****qH* ********* 

♦ UPDATE SOURCE ♦ 
♦POINTER BEYOND ♦ 

>♦ CHARACTER ♦- 

♦ OBTAINED ♦ 

♦ * 
***************** 



*****£5* ********* 

♦CKRGTANY 037A3+ 

* ' * 

>♦ GET NEXT ♦ 
♦CHARACTER FROM ♦ 
♦ SOURCE ♦ 
***************** 



**** 

* * 

* H2 ♦ 

* * 
**** 



STRING 

COUNTER = 

255 



NO .♦ SOURCE 
♦. EXHAUSTED 



H5 ♦ 
**** .* *. 

♦ ♦ YES «♦ SOURCE ♦ 

♦ H2 ♦< ♦. CHARACTER = 

♦ * *. QUOTE ' . * 
**** *. . * 

*. . * 
CKRCTSTR * NO 



CKRLNGCS V 

*****J2** ******** 
♦SET ERROR CODE * 

♦ FOR LITERAL ♦ 

♦ EXCEEDS 255 * 

* CHARS ♦ 

* * 
***************** 



***** 

♦ 035+ 

♦ J3 + 
* * 



♦SET ERROR CODE ♦ 

♦ FOR CLOSING ♦ 

♦ QUOTE MISSING ♦ 

♦ * 
***************** 



CKRTMRET 



***** 

♦ 009+ 

♦ A3 + 



***** 

♦ 035+ 

♦ J3+ 
* * 



*****Y.5********** 
♦SET ERROR CODE ♦ 

♦ FOR LITERAL ♦ 

♦ CONTAINS NO ♦ 

♦ CHARACTERS ♦ 
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***** 

♦020 + 
♦ A2+ 



Chart 020. IPDSNCKR (CKRQUOTE, CKRNOTQT) 



***** 

♦ 020* 

* A2* 

* * 



****A2*** ****** 

* * 

* CKRQUOTE * 
*************** 



*****B2**** ****** 



♦INDICATE MATCH 
* REQUIRED 



***************** 



***** 

♦ 020* 

* A4* 



CKRQTCOM 

*****B3********** 
♦PICK UP LENGTH.* 

* L, OF LITERAL * 
>*FOR COMPARISON, *<- 

* UPDATE DEF PT * 

* PAST LITERAL * 
***************** 



*****C3* ********* 
♦CKRGTNBS 037A5* 



****&H* ******** 

* * 

* CKRNOTQT * 



*************** 



*****B4********** 

* ♦ 
♦INDICATE MATCH * 

-* FAILURE * 

* REQUIRED * 

***************** 



♦GET THE NEXT L ♦ 
♦NON- BLANK CHARS* 
♦ FROM SOURCE ♦ 
***************** 



.♦ SOURCE ♦. YES 

♦. OBTAINED = .♦ 

♦ . LITERAL .♦ 



CKRNOMAT .♦. 

E3 ♦. 
. * * 
. * MATCH 
♦. REQUIRED 



*****D4********** 

* * 

* UPDATE SOURCE * 
->*PT BEYOND CHARS* 

* OBTAINED * 

* * 
***************** 



MATCH 
REQUIRED 



YES ***** 

♦ 009* 
CKRFAIL * A3* CKRINTRP 



YES 
CKRINTRP 



~1, 
***** 

♦ 035* 

* A3* 
* * 

* CKRFAIL 



***** 
*035* 
* A3* 



***** 
+ 009* 
* A3* 
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Chart 021. IPDSNCKR (CKRSCAN, CKRSCANF) 



***** 

*021* 
* A3* 



***** 
♦021* 
* AH* 



****A3********* 

* * 

* CKRSCAN * 

* * 
*************** 



*****B3** ******** 



***************** 



CKRSCANB 

*****C3 ********** 

♦CKRSERCH 038A3* 

* * 

♦SEARCH REMAIN- * 

* DER OF SOURCE * 

* STMNT FOR ARG * 
***************** 



*****D3 ********** 



INCREMENT DEF * 
PT BEYOND ARG * 



***************** 



****A4********* 

* * 

* CKRSCANF * 

* * 
*************** 



*****B4********** 

* * 

* INDICATE THAT * 
♦FAILURE TO FIND* 

* IS DESIRED * 

* * 
***************** 



. * ARG *. 




« * ♦. 


.♦FOUND (END-*. YES 




♦ IS FIND *. YES 


*. OF- SOURCE SW .* 


>*; 


DESIRED . ♦ 1 

♦. . * V 


*. OFF) .* 




*, . * 




*. .* ***** 


*. .* 




*. .* *009+ 


* NO 

1 




* NO * A3* 
J CKRINTRP * * 
1 CKRFAIL * 

***** 
♦ 035* 


.*. 




* A3* 


F3 *. 




* * 


.* *. 




* 


.* IS FIND *. YES 






*. DESIRED .* 


—* 




*. . * 




*. .♦ 


***** 




*. . ♦ 


♦ 035* 




♦ NO 
1 


* A3* 

* * 




1 CKRINTRP 


♦CKRFAIL 


***** 






♦ 009* 






* A3* 
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Chart 022. 



IPDSNCKR (CKRACTN) 



***** 

♦022* 
* A3* 



FROM 
009E3 



****&3********* 



*************** 



*****B3* ********* 
♦SET UP SPECIAL * 

* DEFN PT FROM * 
*DEF PT, UPDATE * 

* DEF PT PAST * 

* ACTION CODE * 
***************** 



***** 

♦ 022* 

* B4* 



FROM 033F5 



* UPDATE DEF PT * 

* PAST TABLE * 

* REFERENCE * 

* * 
***************** 



* ZERO ERROR 
♦CODE, WKAERRCD 



***************** 



*****D3 ********** 

♦ OBTAIN ACTION ♦ 

♦ CODE (AT ♦ 

♦ SPECIAL DEFN ♦ 

♦ PT) ♦ 

♦ * 
***************** 



FROM 












023B5 


***** 








023E3 


* * 








023J4 


♦ # ♦ 








024D3 


* * 








024K3 


* 








024K4 










025C4 










026C5 










026H1 




***** 






026H3 




♦ 022+ 






027D3 




♦ G4+ 






027D4 




* * 






027G2 




* 






028B3 




1 






028B5 










028E2 




I 






028E4 




CKRACFAL V 






029E5 




**GU******* 






029F4 




* SET ♦ 






029K5 




♦ WKASFAIL TO ♦ 






030C2 




♦ INDICATE ♦ 






030C4 




♦ UNDEFINED ♦ 






030F3 




♦ACTION CODE+ 






030F5 




*********** 






030K3 












030K5 












031H1 












031H2 












031J5 
032D3 












^ 








032F2 


CKRACTRT . ♦ . 








032F3 


H3 ♦. 








032K1 


.♦ DID ♦. 








032K4 


.♦ACTION FAIL+. YES 
♦. (CKRFALSW .♦ 


"'I 








♦ . ON) .♦ 








♦. . ♦ 


***** 








♦ . .♦ 


♦ 035+ 








♦ NO 


♦ A3 + 
* * 








CKRFAIL ♦ 








l 
.♦. 


.♦. 








J3 ♦. 


J4 ♦. E3. 


...100.. 


.023 A3 




.♦ ANY ♦. 


. ♦ ♦. 


...101.. 


.023 Dl 




.♦ERROR CODE ♦. YES 


.♦ IS ♦. YES 


...102.. 


.023 G3 




♦.(WKAERRCD SET.+ 


>*. DEF'N .♦ -, 


...103.. 


.024 A3 




♦ . NON-0) .♦ 


♦. COMMITTED. ♦ 


...104.. 


.024 El 




♦ . .♦ 


♦ . . CKRREINT 1 


..105.. 


.024 E4 




♦ . . ♦ 


♦ . .♦ V 


...106.. 


. 025 A2 




♦ NO 


* NO ***** 


..200.. 


.026 A2 




1 


| *035+ 


...201.. 


.026 El 






1 CKRFAIL ♦ F3+ 


..202.. 


.026 E3 






v ♦ ♦ 


..300.. 


.027 A3 






***** * 


..301.. 


.027 F3 




1/ 


♦ 035 + 


...400.. 


. 028 A2 




CKRTSNOP .♦. 


♦ A3+ 


..401.. 


.028 A4 




K3 ♦. 


* * 


...500.. 


. 029 A3 




.♦INVALID^. 


* 


..600.. 


.030 A2 




.♦ACTION CODE+. YES 




..601.. 


. 030 A4 




♦.(WKASFAIL SET.+ 


"""* 


..602.. 


.030 D3 




♦. NON-0) . ♦ 


..603.. 


. 030 h2 




♦ . .♦ 


***** 


..700.. 


.031 Al 




♦ . . ♦ 


♦ 035 + 


...701.. 


« 032 A2 




♦ NO 


♦ H3+ 


..800.. 


.032 H2 




1 CKRERRET ♦ ♦ 


..801.. 


.032 J3 




I CKRINTRP 


* 


. . NONE. 


.022 G4 




***** 










♦ 009 + 










♦ A3+ 
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Chart 023. IPDSNCKR (CKRAR100, CKRAR101, CKRAR102) 



***** 

♦ 023* 

* A3* 



****A3* ******** 

* 100 NON-ZERO * 

* INTEGER * 

* * 
*************** 



V 

• *. 

B3 *. 

. * SW *. 

.* SETTINGS * 

♦.INVALID (ALL 

*. 3 ON) .* 



****B5* ******** 



***** 

♦ 023* 

* Dl* 



C3 *. 
.* type *. 
.* VALUE SWS *. NO 

*. ON FOR .* 

*. INTEGER, . * 
♦.NON-0.* 
♦ . .♦ 
♦ YES 



*****C4********** 

♦ SET MESSAGE ♦ 
♦CODE FOR NON-0 ♦ 

->♦ INTEGER REQ'D ♦- 
♦(ERR PT REMAINS^ 

♦ FROM K OP) ♦ 
***************** 



****D1********* 
♦ 101 NONZERO ♦ 



*************** 



El ♦. 

.♦ SW ♦. 

.♦ SETTINGS ♦ 

♦.INVALID (ALL 

♦ . 3 ON) . ♦ 



.♦ VALUE ♦. NO 

SW ON FOR .♦ 

♦.NON-ZERO .♦ 



*****F2*+* ******* 

* SET MESSAGE ♦ 
♦CODE FOR NON-0 ♦ 

->+NO. REQ'D (ERR ♦- 
♦PT REMAINS FROM+ 

♦ K OP) ♦ 
***************** 



****E3********* 



*************** 
TO CKRACTRT 



***** 

♦ 023+ 

♦ G3+ 



FROM 
022E3 



****G3+** ****** 

* * 

* 102 INTEGER ♦ 

* * 
*************** 



.♦ TYPE SW ♦. 
♦. ON FOR 

♦ . INTEGER . ♦ 



*****H4+ ********* 

♦ SET MESSAGE ♦ 
♦CODE FOR INTEGR+ 

->+REQ'D (ERROR PT+ 
♦REMAINS FROM K ♦ 

♦ OP) ♦ 
***************** 



****J4********* 
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Chart 024. IPDSNCKR (CKRAR103, CKRAR104, CKRAR105) 



***** 

♦ 024* 

* A3* 



****A3********* 

* 103 SAVE K * 

* SWITCHES * 

* * 
*************** 



*****C3********** 

* * 
♦SAVE K SWITCHES* 

* AS LEFT K * 

* SWITCHES * 

* * 
***************** 



****D3********* 



***** 

♦ 024* 

* El* 



*************** 
TO CKRACTRT 



***** 

♦ 024* 

* E4* 



CKRAR104 

****E1********* 

* * 

* 104 COMPLEX * 

* * 
*************** 



****E4* ******** 

* 105 DATA SET * 

* REF NUMBER * 

* * 
*************** 



Fl *. 
- * SW * . 

. * SETTINGS * 

♦.INVALID (ALL 

*. 3 ON) .♦ 



+ (RIGHT) * 

TYPE SW OFF 

♦ .FOR REAL .=1 



**** 

* * 

* G2 * 

* * 
**** 



CKRABDCX V 

*****G2++ ******** 

♦ SET MESSAGE ♦ 

. NO ♦ CODE FOR IN- * 

. * >* VALID COMPLEX *- 

♦NO. (ERR PT RE- + 
♦MAINS FRM KOP)* 
***************** 



HI ♦. 
. ♦ SAVED ♦. 
.♦(LEFT) TYPE+. NO 

♦ . SW OFF FOR . ♦ 

♦ . REAL .♦ 



*. 



RIGHT 

LENGTH SW 

OFF 



Kl ♦. 
. * LEFT *. 
♦ SAVED 

LENGTH SW 
♦. OFF 



YES 
CKRATLND . . 

J2 ♦. 
.♦ LEFT ♦. 
. ♦ SAVED 

>♦. LENGTH SW 

*. OFF 



****K3********* 



F4 ♦. 
. ♦ SW ♦ . 
YES . ♦ SETTINGS ♦ 

♦.INVALID (ALL 

♦. 3 ON) .♦ 



. ♦. 

G4 ♦. 

.♦ TYPE +. 

.♦ VALUE SWS 

ON FOR 

♦. INTEGER . 

♦. NON-0. ♦ 

♦ . . ♦ 

♦ YES 



CKRABDSN 

*****G5* ********* 

♦ SET MESSAGE ♦ 
. NO ♦ CODE FOR IN- ♦ 

. * >* VALID DS REF ♦ 

A +NO. (ERR PT RE-+ 
♦MAINS FRM K OP)* 
***************** 



J4 


*. 






* 


*. 






K DIGIT 


*, 


YES 


COUNT 


> 2 




* 



****K4********* 



*************** 

TO CKRACTRT 



**** 

* * 

* G2 * 

* * 
**** 
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Chart 025. IPDSNCKR (CKRAR106) 



***** 

♦ 025* 

* A2* 
* * 



CKRAR106 

****A2********* 

* * 
♦106 REAL NUMBER* 

* * 
*************** 



B2 *. 

. * SW *. 
.* SETTINGS *. YES 

♦.INVALID (ALL . *- 

*. 3 ON) .* 



TYPE SW *. NO 

OFF FOR .* 

REAL . * 



*****c3 ********** 

* * 

* SET MESSAGE * 
->* CODE FOR REAL * >* 

♦NUMBER REQUIRED* A 

***************** 



****C4********* 



*************** 
TO CKRACTRT 
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Chart 026. IPDSNCKR <CKRAR200 f CKRAR201, CKRAR202) 



***** 

♦ 026* 

* A2* 



****A2 ********* 

* 200 POSS TOO * 

* MANY SUBS * 
*. PRECEDE * 

*************** 



FORTRAN 
LEVEL E 



***** 

♦ 026* 

* El* 



****£i ********* 
♦201 TOO MANY * 

* SUBSCRIPTS * 

* * 
*************** 



. * FORTRAN 
*. LEVEL E 



* SAVED * 

ITER. COUNT 
*. > 2 .* 



* SAVED *. YES 

ITER. COUNT .* 

*. > 6 .* 



CKRATPXS 

*****q3** ******** 

* SET MSG CODE * 

* FOR POSSIBLY * 
>* TOO MANY 

* SUBSCRIPTS * 

* PRECEDE * 
***************** 



**** 

* * 

* cu * 

* * 
**** 



CKRASERP V 

***** C U* ********* 

* * SET ERROR * 

* * POINTER FROM * 
* >*CURRENT SOURCE * >* 

* * POINTER * A A 



***************** 



***** 

♦ 026* 

* E3* 



. * CURR. * 
->*. ITER. COUNT 
*. =2 .* 



****E3********* 

* 202 TOO MANY * 

* SUBS PRECEDE * 

* * 
*************** 



FORTRAN *. YES 
LEVEL E .* 



* SAVED * 

ITER. COUNT 
*. > 2 .* 



****C5********* 
* 
RETURN * 
* 

*************** 

TO CKRACTRT 



Gl *. 

. * *. 

* CURR * 

ITER. COUNT 

*. =6 .* 

*. . * 

*. .* 

* NO 



****H1* ******** 

* * 

* RETURN * 

* * 
*************** 

TO CKRACTRT 



* SET MSG CODE * 
->* FOR TOO MANY * 

* SUBSCRIPTS * 

* * 
***************** 



**** 

* * 

* C4 * 

* * 
**** 



* SAVED *. YES 

ITER. COUNT .* 

*. > 6 .* 



****H3********* 

* * 

* RETURN * 

* * 
*************** 

TO CKRACTRT 



*****QH********** 

* SET MSG CODE * 

* FOR TOO MANY * 
->* SUBSCRIPTS * 

* PRECEDE * 

* * 
***************** 



**** 

* * 

* CH * 

* * 
**** 
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Chart 027. IPDSNCKR (CKRAR300, CKRAR301) 



***** 

♦ 027* 

* A3* 



CKRAR300 1 

****A3********* 

* * 

* 300 END * 

* * 
*************** 



V 
. *. 

B3 *. 

. * DID *. 

.* STATEMENT * 

*.HAVE A STATE- 

*.MENT NO. . * 

♦ .LABEL.* 



*. 



* NO 



CKRAFEND . *. 

C2 *. 
.* IS *. 
NO .* SOURCE *. 

*. FREE- .*<- 

*. FORM .* 
*. .* 
*. . * 
* YES 



D2 *. 
.* IS *. 
.* STATEMENT *. YES 
*.MORE THAN 66 .* — — 
*. CHARS . * 
*. . * 
*. . * 
* NO 



C3 *. 
.* IS 
YES .* CONTINU. 

* . COLUMN 

*. BLANK 



*****£)3** ******** 

* * 

* SET MESSAGE * 
->* CODE FOR END *- 

*TOO FAR ON LINE* 

* * 
***************** 



CKRAIEND 

*****B4**** ****** 

* SET MESSAGE * 
S * CODE FOR END * 
>*REQUIRES BLANK * 

A * LABEL AND * 

* CONTN. FIELDS * 
***************** 

**** 

* * 

* C4 *-> 

* * 
**** 

CKRABGEP V 

*****q4********** 

* SET ERROR * 

* POINTER TO * 
->* BEGINNING OF * 

* STATEMENT * 

* * 
***************** 



****D4********* 



*************** 
TO CKRACTRT 



****E2* ******** 

* * 
— >* RETURN * 

* * 
*************** 



***** 

♦ 027* 

* F3* 



CKRAR301 I 

****F3** ******* 

* * 

* 301 FORMAT * 

* * 
*************** 



****G2********* 

* * 

* RETURN *< — 

* * 
*************** 

TO CKRACTRT 



G3 *. 
.* DID *. 
YES .* STATEMENT * 

*.HAVE A LABEL 

*. (SNOSW .* 
*. ON) .* 
*. . * 
* NO 



*****H3** ******** 

* SET MESSAGE * * 

* CODE FOR * * 

* STATEMENT * >* 

♦NUMBER MISSING * * 

* * * 
***************** 
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Chart 028. IPDSNCKR (CKRAR400, CKRAR401) 



***** 

♦ 028* 

* A2* 



***** 
*028* 
* A4* 



FROM 
022E3 



****A2* ******** 

* 400 DEBUG * 

* * 
*************** 



B2 *. 
. *CHECKNG*. 
.♦FORTRAN G, 
*. Gl OR CODE 
*. AND GO . 



*. 



*****C2*** ******* 

* SET MESSAGE * 
*CODE FOR DEBUG * 

* FACILITY NOT * 

* SUPPORTED * 

* * 
***************** 



*****D2********** 

* SET ERROR * 

* POINTER FROM * 

* BEGINNING OF * 

* STATEMENT * 

* POINTER * 
***************** 



****E2********* 

* * 

* RETURN * 

* * 
*************** 

TO CKRACTRT 



****B3** ******* 

* * 
->* RETURN * 

* * 
*************** 

TO CKRACTRT 



****A4* ******** 

* 401 LIST- * 

* DIRECTED I/O * 

* * 
*************** 



B4 *. 

.*CHECKNG*. 

. *FORTRAN Gl * 

*. OR CODE AND 

*. GO . * 



. * 



*****£[}** ******** 

* SET ERROR * 

* POINTER FROM * 
♦CURRENT SOURCE * 

* POINTER * 

* * 
***************** 



*****D4********** 

* SET MESSAGE * 

* CODE FOR * 

* LIST-DIRECTED * 

* I/O ILLEGAL * 

* * 
***************** 



****£(}********* 

* * 

* RETURN * 

* * 
*************** 

TO CKRACTRT 



****B5 ********* 

* * 
->* RETURN * 

* * 
*************** 

TO CKRACTRT 
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Chart 029. IPDSNCKR (CKRAR500) 



***** 

♦ 029* 

* A3* 



CKRAR500 

****A3** ******* 

* * 

* 500 IMPLICIT * 

* * 
*************** 



*****B3********** 
♦CKRGTNB1 036A3* 

* • * 

* GET NEXT * 
♦NON-BLANK CHAR.* 

* FROM SOURCE * 
***************** 



C3 *. 
.♦SOURCE *. 
.* CHARACTER *. NO 

*. ALPHABETIC .* n 

*. (A-Z OR .* 



* YES 



**** 

* * 

* G5 * 

**** 



*****Q3** ******** 

* SAVE LOC OF * 

* ALPHABETIC * 

* CHAR, LI. AND * 

* UPDATE SOURCE * 

* PT PAST IT * 
* « ************** * 



*****E3** ******** 

♦CKRGTNB1 036A3* 

4c * 

* GET NEXT * 
*NON- BLANK CHAR * 

* FROM SOURCE * 
***************** 



****E5* ******** 
* * 

— >* RETURN * 



SOURCE 
CHARACTER 



****F4*** ****** 



*****G3**** ****** 

* * 

* UPDATE SOURCE * 
♦POINTER BEYOND *- 

* HYPHEN * 

* * 
***************** 



IS LI 
$ 



*****F5* ********* 

* SET ERROR * 

* SOURCE PT TO * 
-♦(SAVED) LOC OF * 

♦RANGE CHARACTER* 

* LI * 
***************** 



CKRABDIM 

*****Q5* ********* 

* SET MESSAGE * 
*. YES * CODE FOR * 

.* >* INVALID RANGE * 

IN IMPLICIT * 

STATEMENT * 

***************** 



1 » 

**** 



* GET NEXT * 
*NON- BLANK CHAR * 

* FROM SOURCE * 
***************** 



V 

• *. 

JU *. 

. +SOURCE *. 

. * CHARACTER * 

.ALPHABETIC > 

*. LI OR $ .* 



*****K4* ********* 



UPDATE SOURCE 
POINTER 



****K5********* 

* * 

* RETURN * 



***************** 



82 



Chart 030. IPDSNCKR <CKRAR600 f CKRAR601, CKRAR602, CKRAR603) 



*030* 
* A2* 



***** 
♦030* 
* AU* 



****A2** ******* 

* 600 SUBSCRIPT * 

* OFF * 

* * 
*************** 



**B2******* 

* * 

* INITIALIZE 
* SUBSCRIPTING 

* SWITCH OFF 

* * 
*********** 



****C2 ********* 

* * 

* RETURN * 

* * 
*************** 

TO CKRACTRT 



****A4********* 

* 601 SUBSCRIPT * 

* ON * 

* * 
*************** 



**B4******* 

* * 

* SET ON 

* SUBSCRIPTING 

* SWITCH 

* * 
*********** 



****cn* ******** 



***** 

♦ 030* 

* D3* 



* *D3********* 

* b02 SUBSCRIPT * 

* TEST * 

* * 
*************** 



E3 *. 

.* IS *. 
* VARIABLE * 

SUBSCRIPTED 
*. (SW ON) .* 



*****EU* ********* 
♦SET ERROR CODE * 

* INDICATING * 
->* VARIABLE MAY ♦- 

* NOT BE * 

* SUBSCRIPTED * 
***************** 



****F3 ********* 

* * 

♦ RETURN * 



*************** 
TO CKRACTRT 



*****E5* ********* 

* SET ERROR * 

* POINTER FROM * 
->*CURRENT SOURCE * 

* POINTER * 

* * 
***************** 



****F5********* 

* * 

* RETURN * 



***** 

♦ 030* 

* H2* 



CKRAR603 

****H2********* 

* * 
♦603 RIGHT PAREN* 

* * 
*************** 



*****j2**** ****** 
♦CKRGTNBl 036A3* 
* * 

* GET NEXT NON- ♦- 
*BLANK CHARACTER* 

* FROM SOURCE * 
***************** 



. * SOURCE 

->*. CHARACTER 

*. ")" 



****K3********* 



*****jH* ********* 

♦SET ERROR CODE * 

♦FOR RIGHT PAREN+ 

->♦ REQD TO END ♦- 

♦ IMPLIED DO ♦ 

* * 
***************** 



*****j5* ********* 

* SET ERROR * 

♦ POINTER FROM * 
->+CURRENT SOURCE * 

♦ POINTER * 

* * 
***************** 



****K5 ********* 
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Chart 031. IPDSNCKR (CKRAR700, CKREVALU) 



***** 

♦ 031* 

* Al* 
* * 

* 

iFROM 
022E3 

****A1********* 

* * 

* 700 WIDTH * 

* * 
*************** 



♦ GET NEXT NON- * 
♦BLANK CHARACTER* 

* FROM SOURCE * 
***************** 



CI *. 
.♦IS ♦. 
♦ SOURCE 

CHARACTER A 

♦. DIGIT .= 

♦. (0-9).+ 



NO 



V 

***** 
♦ 032* 
♦ YES * K3* 

CKRAFALS * * 



*****D1 ********** 
♦CKREVALU 031D4+ 

* * 

♦ COMPUTE VALUE ♦ 
♦OF CONSECUTIVE ♦ 

♦ DIGITS ♦ 
***************** 



. ♦ VALUE 
GREATER 
♦.THAN 255 
♦. . * 



CKRAHIWD 

*****E2* ********* 



***************** 



***** F 1**** ****** 



***************** 



• *« 

Gl *. 

. * *. 

* WIDTH * 

LESS THAN 1 

*. .* 

♦. . ♦ 



****DH********* 

* * 

* CKREVALU ♦ 

* * 
*************** 



*****E4********** 

♦ SAVE CURRENT ♦ 
♦SOURCE POINTER ♦ 

♦ AS POSSIBLE ♦ 

♦ ERROR POINTER + 

♦ * 
***************** 



*****F4********** 

♦ SET VALUE = * 
♦VALUE OF SOURCE+ 

♦ DIGIT, ♦ 

♦ INITIALIZE * 
♦DIGIT COUNT = 1* 
***************** 



CKRABDWD 

*****Q2*** ******* 

♦ SET MSG CODE ♦ 
YES * FOR FIELD NOT * 

* >*i N RANGE 1-255 ♦ 

♦(ERR PT SET BY ♦ 

♦ CKREVALU) ♦ 
***************** 



****H1* ******** 



*************** 
TO CKRACTRT 



****H2********* 



*************** 
TO CKRACTRT 



CKRNXTDG 

***** G H**** ****** 

* UPDATE SOURCE * 
♦POINTER BEYOND * 
♦LAST CHARACTER * 

* OBTAINED * 

* * 
***************** 



* GET NEXT NON- * 
♦BLANK CHARACTERS 

♦ FROM SOURCE ♦ 
***************** 



. ♦. 

J4 ♦. 

.♦ IS ♦. 

. ♦ SOURCE ♦ 

. CHARACTER A 

♦. DIGIT . ♦ 

♦ . (0-9). ♦ 



CKRVALRT 

****J5 ********* 
* 
>* RETURN 



* YES 



*****K4**** ****** 
♦COMPUTE VALUE =♦ 

♦ 10+ VALUE OF ♦ 
-♦ SOURCE DIGIT, ♦ 

♦ADD 1 TO DIGIT ♦ 

♦ COUNT ♦ 
***************** 



84 



Chart 032. IPDSNCKR (CKRAR701, CKRAR800, CKRAR801) 



***** 

*032* 
* A2* 



****A2 ********* 

* 701 DECIMAL * 

* PLACES * 

* * 
*************** 



*****£2 ********** 
♦CKRGTNBl 036A3* 

* GET NEXT NON- * 
♦BLANK CHARACTER* 

* FROM SOURCE * 
***************** 



C2 *. 

.♦IS ♦. 
♦ SOURCE ♦ . 

CHARACTER A . 
♦. DIGIT .♦ 
♦. (0-9). ♦ 



* YES 



*****D2**** ****** 
♦CKREVALU 031D4+ 

* * 

♦ COMPUTE VALUE ♦ 
♦OF CONSECUTIVE ♦ 

♦ DIGITS ♦ 
***************** 



CKRADCPU 

***** C 3** ******** 

♦ SET MSG CODE ♦ 

♦ FOR DECIMAL ♦ 
>*PLACES MUST BE ♦ 

♦SPECIFIED, ERR ♦ 
♦PT=CURR SRC PT ♦ 
***************** 



****D3********* 



E2 ♦. 

♦ VALUE ♦ 

GREATER 

THAN 

WIDTH 



****F2+++*+**** 



** ***E3 ******** ** 

♦ SET MSG CODE + 

♦ FOR TOO MANY ♦ 
->♦ DECML PLACES ♦ 

♦FOR FLD (ERR PT* 

♦ SET BY EVALU) ♦ 
***************** 



****F3 ********* 



*************** 
TO CKRACTRT 



*************** 
TO CKRACTRT 



***** 

♦ 032* 

♦ H2+ 



****K1 ********* 



*************** 
TO CKRACTRT 



CKRAR800 I 

****H2* ******** 

* * 
*800 SOURCE END * 

* * 
*************** 



*****j2* ********* 
♦CKRGTNB1 036 A3* 

* * 

♦ REQUEST NEXT ♦ 
♦NON- BLANK CHAR ♦ 

♦ FROM SOURCE ♦ 
***************** 



YES .♦ END OF 
*. SOURCE 



***** 

♦ 032+ 

♦ J3+ 



CKRAR801 

****j3** ******* 

* * 

* 801 FAIL * 

* * 
*************** 



**** 

♦ 032+ 
FROM * K3 * 
031C1* * 

**** 

CKRAFALS 

**K3******* 



SET ON 

FAILURE 

SWITCH 

* * 

*********** 



****K4********* 
% * * 

->* RETURN * 
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Chart 033. IPDSNCKR (CKRMESSG, CKRTABL) 



***** 

♦ 033* 

* Al* 



***** 
*033* 
* A3* 



****A1********* 

* * 

* CKRMESSG * 

* * 
*************** 



*****%!********** 
♦SAVE DEFINITION* 

* TABLE MESSAGE * 
♦CODE IN CURRENT* 

* LINE NEST * 

* * 
***************** 



*****Q±********** 

* * 

* I NCR. DEF PT * 

* PAST MESSAGE * 

* CODE * 

* * 
***************** 



***** 

♦ 009* 

* A3* 

* * 



****A3 ********* 

* * 

* CKRTABL * 

* * 
*************** 



***** B 3 ********** 

* * 
♦SET UP SPECIAL ♦ 

♦ DEFN PT FROM ♦ 

♦ DEFN PT ♦ 

* * 
***************** 



* C3 *-> 



**** 

CKRTABLT 

*****C3 ********** 

♦ USING SPECIAL * 
♦DEFN PT, OBTAIN+ 
♦LOC OF LITERAL ♦ 

♦ TABLE FOR ♦ 

♦ TESTING ♦ 
***************** 



*****D3* ********* 
♦COMPUTE LOC OF ♦ 
♦TABLE END, PICK+ 

♦ UP MAX. ARG. ♦ 
♦SIZE, PT TO 1ST+ 

♦ ARG ♦ 
***************** 



*****E3 ********** 
♦CKRGTNBS 037A5+ 



♦ 009+ 

♦ A3+ 
***** 

A CKRINTRP 



*****E4********** 



CKRTOPFL 

**D5******* 

* SET * 
♦WKASFAIL FOR * 

♦ ILLEGAL TABLE * -, 

* FUNCTION OP * 

♦ CODE ♦ J 
*********** v 

A ***** 
CRKERRET+035+ 
♦ F3+ 
* * 



♦ GET NEXT MAX- ♦ 


* BEYOND 


+TABLE ♦< 


*. FUNCTION 


* 


♦ ARG-SIZE NON- ♦ 


♦OR -TABLE ENTRY ♦ 


*. NULL . * 




♦ BLANK CHARS ♦ 


* * 


*. * 




********* 
> 


********* 


******** 
i 


********* 
\ 


*. .* 
* 
A 




V 




YES 




NO 




CKRTTBND .♦. 


CKRTBEND . = 




. *. 




F3 ♦. 


F4 *. 


F5 * 




. ♦ ♦. 


. * *. 


. * ♦. 




.♦ AT END ♦. YES 


. * -TABLE *. 


, ♦ FUNCTION * 


YES 


♦. OF TABLE .♦ 


>*. NAME .* 


*. ACTION 


* n 


♦. . ♦ 


♦. . ♦ 


♦. CODE . * 


1 


♦ . .♦ 


♦ . . * 


♦ . . * 


J 


♦. . ♦ 


♦. . ♦ 


♦. . ♦ 


V 


♦ NO 


♦ NO 


* 


***** 


j 


I **** 


ACKRACTNT*022* 




CKRFAIL *035* 






* BH* 




<-->* A3 * 






* * 




* * 






* 


V 


**** 




NO 




. ♦. 










G3 ♦. 


*****QH ********** 


G5* "* 




.♦SOURCE ♦. 


♦CKRGTNBS 037A5+ 


„ * * 




.♦= NEXT ARG ♦. YES 


* * 


.♦FUNCTION + * 


YES 


♦. OF GIVEN .♦ 


>* GET ARG-SIZE ♦ 


♦.OR - TABLE 


* 1 


♦. SIZE .♦ 


♦CHARS FROM SRC ♦ 


♦ . NAME . ♦ 


j 


♦ . .♦ 


♦ FOR SPACING ♦ 


*. * 


J 


♦. . ♦ 


***************** 


♦ . . ♦ 


V 


♦ NO 






* 


**** 










ACKKTABLT* * 














+ C3+ 














* * 














**** 


1 


f 


CKRTBUPS 


1 


CKRTFUNC . 


NO 




*****H3** ******** 


***** jj n* ********* 


H5 * 




* * 


♦ UPDATE SOURCE ♦ 


. * *. 




♦I NCR. PT BEYOND* 


♦POINTER BEYOND ♦ 


.* FUNCTION * 


YES 


L * THIS ARGUMENT * 


♦LAST CHARACTER ♦ 


*. SYMBOLIC 


* 1 


* * 


♦ OBTAINED ♦ 


*. LINE , * 


| 


* * 


* * 


*. * 


J 


***************** 


***************** 


♦ . . * 


V 








* 


***** 








ACKRSYNST*013* 












♦ C2+ 




1 








* * 
* 




J4* '+. 


*****J5* 


:******** 




. ♦ ♦. 


♦ SET SPECIAL 


* 




.♦ -TABLE ♦. NO 


* DEFN PT TO 


* 






♦ . NA1 


VIE . * 


>* POINT 


EMMED. 


* 



♦BEYOND ARG FUNC* 
* OP CODE * 
***************** 



***** 

♦ 035* 

* A3+ 
* * 
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Chart 034. IPDSNCKR (CKRSYUNS, CKRUNEST) 



***** 

♦ 034* 

* A3* 
* * 



****&3 ********* 

* * 

* CKRSYUNS * 

* * 
*************** 



***** 

♦ 034* 

* A4* 
* * 

* 

I FROM 
009E3 

CKRNOMSG V 

**A4******* 



* SET OFF * 
* CHECKER ERROR * 

* SWITCH * 



B3 



*. 



.* AT TOP * 

*. LINE (LEVEL 

*. = 1) .* 

*. . * 

*. .* 

* NO 



*****C3** ******** 
♦CKRUNEST 034F3* 

* * 

♦RELOAD DEFN PT * 
♦FROM NEST, POP ♦ 
♦ UP NEST LIST ♦ 
***************** 



***** 

♦ 009+ 

♦ A3* 



"V 
***** 

*********** *035* 
A * K3* 

CKRNMLRT * * 



YES 
CKRNMLND . . 

BU *. 

.* ANY *. 

.* PRIOR CKR *. 

>*. DETECTED ERR, . * 

*. CKR ERR .* 
*.SW ON.* 



NO 



CKRNMLND . *. 

C4 *. 
.* ANY *. 
.* REMAINING *. 
*. SOURCE 

*. CHARS .* 
*. . * 
*. .* 
* YES 



NO CKRNMLRT 

^ 

***** 

*035* 

* K3* 

* * 



*****D4********** 

* SET MSG CODE * 
*FOR EXCESS SRC * 
* CHARS, SET ERR * 

* PT FROM CURR * 

* SRC PT * 
***************** 

CKRTMRET 

***** 

*035* 

* J3* 

* * 



****P3 ********* 

* * 

* CKRUNEST * 

* * 
*************** 



*****G3 ********** 

* RELOAD DEF PT * 

* FROM NEST TO * 

* NEXT ENTRY IN * 

* PREV LINE * 

* * 
***************** 



*****H3** ******** 

* * 
♦DECR. NEST LIST* 
♦POINTER, POP UP* 
♦NEST FROM LIST * 

* * 
***************** 



****K3** ******* 

* * 

* RETURN * 

* * 
*************** 

TO CALLER 
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Chart 035. IPDSNCKR (CKRFAIL) 



***** 

♦ 035* 

* A3* 
* * 



FROM 

010E5 

014D3 

014K3 

015C1 

015C2 

015D3 

015C4 

016C5 

017D3 

018C3 

018E3 

019C3 

020E3 

020E4 

021F3 

021E4 

022H3 

022J4 

033F4 

033JU 



* * 

♦ 034* 

* A4* 
***** 

A CKRNOMSG 



****A3* ******** 

* * 

* CRKFAIL * 

* * 
*************** 



**B3******* 

* * 
SET ON 
FAILURE 
SWITCH 

* * 
*********** 



C3 . ♦ . 

.* COM- *. 

. * MITTED TO *. 

. THIS PATH. . * 

♦ .COMMIT SW. * 

* . ON . * 

*. . * 

* YES 



*****D3********** 

* . * 

* OBTAIN ERROR * 

* MESSAGE CODE * 
♦FROM LINE NEST * 

* * 
***************** 



*****E3********** 

* SET ERROR * 

* POINTER FROM * 
♦CURRENT SOURCE ♦ 

* PT * 

* * 
***************** 



**** 

♦ 035* 

* F3 *-> 



i 

CKRTRYNX . * . I 

CH *. *****c5********** 

.♦IS NEXT*. +CKRUNEST 034F3* 

. *AT LEVEL OF*. NO * * 

>*. CURRENT . * >* UNNEST TO * 

*. QUAL'N .* * PREVIOUS LINE * 

*. .♦ * * 

*. .* ***************** 
YES 



CKRNXALT V 

***** D 4********** 

♦SET DEF PT FROM* 

* QUAL FALSE * 
♦DISPL TO NEXT * 

* OR > OR ) * 



***************** 



***** 
*009* 
* A3* 



YES 



Fl 



DOES *. 

MESSAGE 

TERMINATE 

. CHKING OF. 

♦.STAT .* 



**** 

* * 

* Gl * — -. 

* * J 
**** V 

CKRTSMSG . * . 

Gl *. 
.* IS *. 
NO . * MESSAGE 

*. UNIQUE FOR 

*. STATEM. . 



*****gl* ********* 

♦ ENTER MSG IN ♦ 

♦ MSG TABLE. ♦ 

♦ UPDATE MSG ♦- 

♦ TABLE PT ♦ 

♦ * 
***************** 



**** F 2 ********* 

* ACCORDING TO * 
->*BRANCH REGISTER* 

* * 
*************** 



*****Q2*** ******* 

* INDICATE THAT * 

* NO FURTHER ♦ 
-♦ CHKING CAN BE ♦<- 

♦ DONE ON ♦ 

♦ STATEMENT ♦ 
***************** 



**** 
CKRREINT 

**F3******* 
♦SET BR REG ♦ 

♦ TO CKRINTRP ; 
♦TO INTERP NEXT 

♦ OPCODE ON 

♦ RECALL ♦ 
*********** 

**** 
♦ 035* 

G3 *-> FROM 

016B1 

**** V 016H3 

CKRTSTML .+.016E5 

G3 018J5 

. * *. 

YES . * END OF *. 



FROM 

014G5 018F5 019K5 

017H5 022J4 



.*. 

H2 *. 
.* SPACE *. 
.♦FOR ANOTHER+. YES 

♦. MSG. IN .♦ 

♦. TABLE . ♦ 
♦ . .♦ 
♦ . . ♦ 
♦ NO 



*****J2**** ****** 

* INDICATE THAT * 

* MSG. IS * 

* TERMINAL, NO *- 
♦FURTHER CHKING ♦ 
♦THIS STATEMENT ♦ 
***************** 



**** 

♦ 035+ 

♦ H3 ♦ — -, FROM 

♦ ♦ 009E4 
♦♦♦♦ J 022K3 

CKRERRET V 033D5 
*****jj3** ******** 

♦SAVE REGISTERS ♦ 

♦ FOR POSSIBLE ♦ 
>* RECALL OR ♦ 

A ♦ DEBUGGING ♦ 



***************** 



**** 

♦ 035+ 

♦ J3 ♦-> 



**** 

CKRTMRET 

**J3******* 

* * 

♦ SET ON ♦ 
* CHECKER ERROR 

* SWITCH * 

* * 
*********** 



FROM 

013E5 

018J3 

019J2 

019J3 

034D4 



**** 

*035* 
FROM * K3 *-> 
034A4* * 
034C4**** 

CKRNMLRT V 

*****K3** ******** 

* * 
♦RESTORE CALLING ♦ 

♦ PROGRAM'S ♦- 

♦ REGISTERS ♦ 

* * 
***************** 



****K4********* 
* * 

->♦ RETURN ♦ 
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Chart 036. IPDSNCKR (CKRGTNBl) 



****A3********* 

* CKRGTNBl * 

* * 
*************** 



.♦.ALREADY OUT OF CHARACTERS 



BEGNG 
.P. = 



CKRGOTNB 

*****q2 ********** 

* SET CURRENT * 

* S.P. = THE * 

* POSITION OF *< 

* CURRENT * 

* CHARACTER * 
***************** 



**D2******* 



*********** 



*****£2*** ******* 

* * 

* MOVE CURRENT * 

* CHARACTER TO * 

* BUFFER * 

* * 
***************** 



FROM **** 
037H2*036* 
037JU* F2 



*-> 



**** 

* * 

* EH * 
**** 



CKRLOOK . *. 

C3 *. 
.* IS *. 
NO .* CURRENT 

*. CHAR A 

* . BLANK . 
*. . * 
*. .* 
* YES 



*****D3********** 



***************** 



**** 
CKRGONBU 

*****P2** ******** 
♦SET UPDATE S.P.* 

* TO NEXT * 

* CHARACTER IN * 

* STMNT * 

* * 
***************** 



.* PAST *. YES 

*. END OF .* 

*. STMNT . * 



**** H 2** ******* 

* * 

* RETURN ♦ 

* * 
*************** 



PAST 

END OF 

STMNT 



**** 

♦ 036* 

* EU *-> 



FROM 

037C1 

037C5 



**** 

CKRNONB 

*****jg4**** ****** 



***************** 



*****£>((********** 



♦SET UPDATE S. P. ♦ 
* = BEGNG S.P. * 



***************** 



*****Q(J**** ****** 

* * 

* MOVE END-OF- ♦ 
♦SOURCE CHAR TO ♦ 

* BUFFER ♦ 

* * 
***************** 



**** 

♦ 036 + 

♦ H4 ♦-> 



**** 
CKRNONB1 



FROM 
037B3 
L 037G1 
V 037J5 



**H4******* 



*********** 



CKRNONB 2 V 

*****j4********** 



♦ SET UPDATE S. P. ♦ 
>♦ NEGATIVE ♦ 



***************** 



****K4********* 

* * 

* RETURN * 

* * 
*************** 
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Chart 037. CKRSKANY, CKRGTANY, CKRGTNBS 



****A1********* 

* * 

♦ CKRSKANY * 
*************** 



**B1******* 

* * 
INDICATE 

SOURCE 
SKIPPING 

* * 
*********** 



*****B2*+ ******** 



* >* SET MVCNT = *<- 



***************** 



****A3********* 

* * 

* CKRGTANY * 

* * 
*************** 



**B3******* 

* * 

INDICATE 

SOURCE 
MOVEMENT 

* * 
*********** 



.GET N 

. NON- BLANK 

. SOURCE 

. CHARACTERS 



****A5********* 

* * 

* CKRGTNBS * 

* * 
*************** 



*****B5* ********* 

* * 

* * 

* SET MVCNT = * 

* * 

* * 
***************** 



.♦.ALREADY OUT OF CHARACTERS 



. * IS *. 

. BEGNG S.P. . 

♦.NEGATIVE .* 



*****D1 ********** 

* SET CURRENT * 

* S.P. = BEGNG * 

* S.P. INITLZ * 

* RESULT BUFFER ♦ 

* PNTR ♦ 
***************** 



**E1******* 



*********** 



""V 
***** 
*036* 
* EH* 



***** 

♦ 036* 

* £4* 



CKRSKIP . * . 




Gl *. 




.♦IS ♦ 


YES 


. ♦ SRCNT + 


r — * 


BEGNG S.P. 


J 


♦. END OF 


1 


♦ . STMNT. ♦ 


V 


♦ . .♦ 


***** 


♦ NO 


*036* 






* HU* 






* * 






* 







*****H1********** 

* * 

♦ SET UPDATE S.P.+ 
♦= BEGNG S.P. + ♦ 

♦ SRCNT ♦ 

* * 
***************** 



*****J1 ********** 



***************** 



****K1* ******** 

* * 

* RETURN ♦ 

* * 
*************** 



♦ MOVE CURRENT ♦ 
->+CHAR TO RESULT ♦ 

♦ BUFFER ♦ 

♦ * 
***************** 



***** G 2 ********** 

♦ ADD ONE TO ♦ 

♦ MVCNT, UPDATE ♦ 

♦ RESULT BUFFER ♦ 

♦ PNTR ♦ 

♦ * 
***************** 



.♦MVCNT LESS +. NO 

*. THAN .* 

*. SRCNT .* 



*****q3** ******** 

* SET CURRENT * 

* S.P. TO * 

* POSITION OF *- 

* CURRENT * 

* CHARACTER * 
***************** 



~~V 
***** 
+ 036* 
* F2* 



V 
*****D5* ********* 

* CURRENT S.P. = * 

* BEGNG S.P. * 

* INITLZ RESULT * 

* BUFFER PNTR * 

* * 
***************** 



**E5* ****** 
♦SET SOURCE * 

* END SW OFF, * 
♦CURRENT S.P< - 

* ♦ 
* * 

*********** 



V 
. *. 

F5 * 
. * IS * 
NO . ♦ CURRENT * 

*, CHARACTER A 

BLANK * 



*****j2*** ******* 

♦ * 

♦ POINT TO NEXT + 

♦ CHARACTER IN ♦ 

♦ STMNT ♦ 

♦ * 
***************** 



NO .♦ BEYOND 

♦. END OF 

♦. STMNT 



CKRGTNB3 

*****q4**+* ****** 

* * 

♦ MOVE CURRENT ♦ 
>* CHARACTER TO * 

+ RESULT BUFFER ♦ 



***************** 



*****H4* ********* 

* * 
♦ADD 1 TO MVCNT, ♦ 

♦ UPDATE RESULT ♦ 

♦ BUFFER PNTR ♦ 

* * 
***************** 



. *MVCNT LESS ♦. YES 

THAN . ♦ 

♦. SRCNT . * 



♦. 



*****Q5* ********* 

* * 

* POINT TO WEI XT * 
— >* CHARACTER IN * 

* STMNT ♦ 

* * 
***************** 



BEYOND 

END OF 

STMNT 



* J5 ♦-> 



**** 

CKRGTNB4 

*****J5* ********* 

* MOVE END -OF- * 

* SOURCE * 

* CHARACTER TO * 

* NEXT POS, IN * 

* RESULT BUFFER * 
***************** 



***** 

♦ 036+ 

♦ F2+ 
* * 



***** 
*036* 
* H4* 



**** 

* * 

* J5 ♦ 
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Chart 038. CKRSERCH 



****A3********* 

* * 

* CKRSERCH * 

* * 
*************** 



. SEARCH 
.FOR A 
. SPECIFIC 
. CHARACTER 



.* IS 
*. BEGNG S. P. 
♦.NEGATIVE 



*. YES 
. * 



"V 

***** 

*036* 
* EH* 



*****C3********** 

* * 

* SET TRT TABLE * 

* PER CHAR TO * 

* SEARCH FOR * 

* * 
***************** 



*****D2 ********** 

* * 
*SET UPDATE S.P.* 
*PER POSITION OF*<- 

* CHAR * 

* * 
***************** 



**E2******* 



D3 *. 

.♦TRT IS *. 

* CHAR IN * 

THIS 
*. STMNT . * 



*****E3********** 



*********** 



*****P2 ********** 

* * 

♦RESET TRT TABLE* 

* TO ♦< 



***************** 



**P3******* 
* * 

* SET SOURCE 
* END SW ON 



***************** 



****G2 ********* 

* * 

* RETURN * 

* * 
*************** 



*********** 
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Chart 039. 



IPDERERR (Error Code Processor) 



****A3********* 

* * 

* IPDERERR * 

* * 
*************** 



**** 

* * 

* A5 * 

* * 
**** 



ERRNOSRC 

*****A5********** 

* MOVE ' LENGTH' : * 

* CHARACTERS TO * 

* WKAERBFR FROM * 

* LOC 'POINTER' :* 

* POINTS TO * 
***************** 



*****B5* ********* 



♦ SAVE REGISTERS. * 



***************** 



THE VALUE OF WKAERRCD, THE 
ERROR CODE IN STORAGE, IS NOT , 
CHANGED, THE EVEN ERROR CODE , 
IN THE REGISTER IS USED IN THE, 
REMAINDER OF THIS ROUTINE. 



*****C3********** 
♦GET ERROR CODE * 
♦ZERO BITS 0-23 * 
* AND 31 OF REG * 
♦SO CODE IS EVEN+ 
♦& LESS THAN 255+ 
***************** 



OBTAINED FROM TABLE 
'MSGTABLE' USING ERROR 
CODE. DISPLACEMENT 
IS RELATIVE TO START 
OF 'MSG000* TABLE 



***************** 



*****C5**** ****** 

♦OBTAIN MESSAGE ♦ 

♦ DISPLACEMENT ♦ 
. ♦ AND COMPUTE ♦ 

♦MESSAGE LENGTH + 

* * 
***************** 



WKAERBFR IS THE AREA IN 
WHICH MESSAGES ARE CONSTRUCTED. 
EVERY MOVE INTO WKAERBER STARTS 
AT THE FIRST BYTE TO THE RIGHT 
OF CHARACTERS PREVIOUSLY MOVED. 



*****D3 ********** 
♦MOVE 'IPD* THE ♦ 

♦ ERROR CODE IN ♦ 
♦EBCDIC. AND TWO+<- 

♦ BLANKS TO ♦ 

♦ WKAERBFR. ♦ 
***************** 



*****E3 ********** 

♦ SET ' POINTER • ♦ 
♦TO BEGINNING OF+ 

♦ LINE NUMBER ♦ 

♦ FIELD ♦ 

♦ * 
***************** 



YES . ♦ IS ♦. 

*. WKASFAIL = . 

♦. .♦ 



*****34********** 

♦ SET UP ERROR ♦ 

♦ CODE AS 255 + ♦ 
-♦ VALUE OF ♦ 

♦ WKASFAIL ♦ 



***************** 



MESSAGE 

LENGTH 

ZERO 



*****E5********** 
+ SUBSTITUTE + 

♦ DISPLACEMENT ♦ 

♦ AND LENGTH OF ♦ 

♦ MESSAGE ZERO + 

♦ * 
***************** 



OPTION WORD BYTE 4, BIT2 
=0 LINE NUMBER 

ALREADY IN FIELD 
=1 LINE NUMBER ABSENT 

USE RELATIVE LINE NO. 



' POINTER' . IS NEVER. 
MOVED PAST LAST 
CHARACTER OF LINE. 
NUMBER, EVEN IF IT. 
IS ZERO OR BLANK . 



F3 ♦. 
.♦IS LINE+. 
.♦NO. ALREADY+. NO 

..♦. IN LINE NO. . ♦ 

♦. FIELD .♦ 



ERRLINUM 

*****Q3********** 

♦MOVE 'POINTER' ♦ 

♦ PAST LEADING ♦ 
. . . . ♦ ZEROS AND ♦ 

♦BLANKS IN LINE ♦ 

♦ NUMBER ♦ 
***************** 



*****qH*** ******* 
♦CONVERT BINARY ♦ 

♦ RELATIVE LINE ♦ 

♦ NUMBER TO ♦ 
♦EBCDIC IN LINE ♦ 

♦ NUMBER FIELD ♦ 
***************** 



* IS ♦ 
MESSAGE TOO 

♦ . LONG . ♦ 



*****G5**** ****** 

* * 

♦ SUBSTITUTE ♦ 
♦MAXIMUM MESSAGED 

♦ LENGTH ♦ 

* * 
***************** 



•LENGTH' :WILL BE 
IN THE RANGE 
1 TO 8 SINCE 
'POINTER' IS NOT 
MOVED PAST LAST 
CHARACTER 



WKAERRSC = 
INDICATES 
ABSENCE OF 
SOURCE 
CHARACTERS 



***** H 3********** 

♦FIND ' LENGTH* , ♦ 

♦LENGTH OF LINE ♦ 

.♦NUMBER WITHOUT ♦ 

♦ LEADING ZEROS ♦ 

♦ AND BLANKS ♦ 
***************** 



ERRSORCE .♦. 

J3 ♦. 
. ♦ ARE ♦. 
. ♦ SOURCE 
...... CHARACTERS 

♦. PRESENT . 



ERRLENOK V 

*****H5********** 

♦MOVE MESSAGE TO* 

♦ WKAERBFR AND ♦ 
♦FILL REMAINDER ♦ 

♦ OF WKAERBFR ♦ 

♦ WITH BLANKS * 
***************** 



->♦ A5 ♦ 
* * 
**** 



*****K3********** 

FIELDS FOR LINE . ♦ INSERT BLANK ♦ 

NUMBER, BLANK. . * BETWEEN LINE ♦ 

AND SOURCE ♦ NUMBER AND ♦ 

CHARACTERS ARE . *SOURCE AND ADD ♦ 

CONTIGUOUS IN . ♦ 7 TO 'LENGTH' ♦ 

STORAGE. . ***************** 

I 



***************** 



****K5********* 

* * 

* RETURN ♦ 

* * 
*************** 



ERRNOSRC 
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SECTION IV: MICROFICHE DIRECTORY 



The microfiche directory is designed to 
help you find named areas of code in the 
program listing, which is contained on 
microfiche cards at your installation. 
Microfiche cards are filed in alphameric 
order by object module name. If you wish 
to locate a control section, subroutine, 
table, or work area on microfiche, find the 
name in column one and note the associated 
object module name. You can then find the 
item on microfiche, via the object module 
name; for example, the subroutine CKRGTANY 
is on card IPDSN. In the case where a work 
area is referenced by two object modules, 
the names of both modules appear in the 
module name column. The other columns 
provide a description of the item, its 
flowchart identification (if applicable), 
and a synopsis of its function (or its 
contents, if a table) . 



Table 4 below contains a module-CSECT 
cross-reference table. 



Table 4. Module-CSECT Cross-Reference 
Table 

r T T 

| | Objectj 

| Load Module j Module | 
| Name | Name | CSECT Name 



I- 

| IPDAGH 

\- 

j IPDSNEXC 



| IPDTEE 
L 



| IPDAGH | IPDAGH | 

_4 + 4 

j IPDER j IPDERERR | 

,. + ^ 

| IPDSN j IPDSNCKR, IPDSNEXC | 
.4 + ., 

j IPDTEE | IPDTEE | 

-J. -L J 



T T T T T 

| | Object Module | CSECT/ | | 

j JName (Micro- |DSECT | Chart | 
Name j Description | fiche Name) | Name | ID | Synopsis 
+ + 4 + + 

CKRACNDX| table | IPDSN |IPDSNCKR| — (Displacements to action code 

| j || | routines 
i _ i _j_ 4. i _ _ _ 


— _ — -j. — — _ _ ^. -^. ^. -j. - _ _ 

CKRAMTBL| table | IPDSN | IPDSNCKR | — (Translate and test table for A-Z and 

I 1 1 | | 0-9 

4 + + + + 

CKRGTANY | subroutine | IPDSN | IPDSNCKR| 037 | Get next n source characters, both 

[name j | | | blank and nonblank 
+ + + + + 

CKRGTNBSj subroutine | IPDSN | IPDSNCKR | 037 |Get next n nonblank source 

(name j j | [characters 
+ + 4 + + „. 

CKRGTNBlj subroutine | IPDSN | IPDSNCKR | 036 | Get next nonblank source character 

|name j III 
+ + + + + „_. 

CKROPNDX| table | IPDSN |IPDSNCKR| — (Displacements to syntactic operator 

|j II | routines 
4 4 4 4 4 

CKRSERCHI subroutine (IPDSN | IPDSNCKR| 039 (Search source for a specific 

|name j | | (character 
4 4 „_4 4 4 . 

CKRSKANYI subroutine | IPDSN | IPDSNCKR| 037 (Skip next n source characters, both 

|name | | | | blank and nonblank 
+ „ + 4 4 4 

EXCADRDF| table | IPDSN | IPDSNEXC | — (Displacements in EXCSYNXS to syntax 
|| II | table address associated with each 
| j II | FORTRAN level. 

4 4 4 4 4 . j 

EXCLODTB| table j IPDSN | IPDSNEXC ( — (Syntax definition table names. Used 

| j II |for loading and deleting purposes. 
4 . 4 + 4 4 j 

EXCSYNXS | table (IPDSN | IPDSNWKA| — (Locations of syntax definition 

II || | tables in core storage. 

JL X X J. JL J 
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r T T T T~ T — " 1 

j J | Object Module JCSECT/ | | I 
| | |Name (Micro- jDSECT | Chart | | 
|Name | Description | fiche Name) JName |ID j Synopsis j 
|. + 4 4 4 4 ^ 

|IPDCKWRK|work area | IPDSN | IPDSNWKA| — | Miscellaneous checker work areas | 

,. + + _ — + + + . — ^ 

|| j II (error messages j 

,. _4 _ + 4 + _ + . ., 

| IPDERWKA|work area | IPDSN |IPDSNWKA| — (Communications area between | 
j | j and | and | [executive, checker, and error code | 
| j jlPDER |IPDERWKA| | processor | 

|. + 4 4 4 4 .j 

JIPDSNCKRJCSECT | IPDSN | IPDSNCKRJ j 006- jchecker checks source statement j 
j j j | |036 j against a syntax definition table | 
I. : — 4 + „ 4 4—— 4 _ 1 

|IPDSNEXC|CSECT j IPDSN | IPDSNEXC | 001- | Executive interfaces with environ- j 
j j II |005 j mental system; calls checker to | 
| | | | | | check source statements? calls error | 
j j j | | |code processor to construct error | 
II 1 1 1 (messages | 
|. 4^ + + + _ — 4 ^ 

| IPDSNWKAJDSECT | IPDSN |IPDSNWKA| — | Work area used by executive, checker | 
j || || |and error code processor | 


r T~.TTTT "1 

|MSGTABLE| table | IPDER |IPDERERR| — | Table of displacements of error | 
| || || | message texts relative to MSG000. j 
j. 4 4 4 ^ — 4 4 .| 

|MSG000 | table | IPDER |IPDERERR| — | Table containing texts of all error | 
II I I I | messages | 
F 4 4„_ 4 4 -4 ^ 

|WKACHRST|work area | IPDSN |IPDSNWKA| — , | Source statement character string | 

Y 4 -, 4 4 4 4 - ^ 

|WKACKPRM| table j IPDSN |IPDSNWKA| — [Parameter list set up by the j 
|| j || | executive when it calls the checker | 
H 4 4 4 4 4 .| 

|WKAGTCHR|table | IPDSN | IPDSNWKA| — (Supplied and returned parameters of | 
j jj || | get-character routines | 
j. 4^ 4 4 4 4 1 

| WKALNEST | table j IPDSN |IPDSNWKA| — | Current syntactic line nest j 

|WKANLIST| table | IPDSN |IPDSNWKA| — | Push down stack for syntactic line | 
II 1 II | nests | 
F 4 4 4 4 4 ^ 

|WKAQLIST| table | IPDSN |IPDSNWKA| — | Push down stack for qualification | 
j || || j information | 
F 4 4 4 4 4 -1 

|WKAQUALF| table | IPDSN |IPDSNWKA| — (Current qualification information | 

|. _ + 4 4 4 4 4 

JWKASERTBJ table | IPDSN |IPDSNWKA| — (Translate and test table for I 
j j j | | JCKRSERCH routine j 
l i - 4 ^-444 i 


|WKATINU | table | IPDSN | IPDSNWKA| — (Displacements within WKACHRST of | 
j) | III lines of current source statement | 
|| | jj jand associated line numbers. | 
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SECTION V: DATA AREA LAYOUTS 



This section provides detailed layouts of internal tables and work 
areas used during syntax checking. 

Table 5 indicates the control sections in which the tables and work 
areas are referenced. The format and content of each of the areas 
listed follows Table 5. 



Table 5. Table and Work Area Usage 

r t 



t~- 



Table/Work 




Initialized, Used, and/or 


Area 


J. 


Modified by 


CKRACNDX* 


T 


IPDSNCKR 


CKRAMTBL* 




IPDSNCKR 


CKROPNDX * 




IPDSNCKR 


EXCADRDF * 




IPDSNEXC 


EXCLODTB * 




IPDSNEXC 


IPDSNWKA 




IPDSNEXC, IPDSNCKR, IPDERERR 


MSGTABLE* 




IPDERERR 


MSG000* 




IPDERERR 



h ± ^ 

| *Table is created at assembly time and must not be modified during 
execution. 

L - J 



CKRACNDX: Action Routine Branch Table 





T" 



"T" 

I 



4 

"T" 



6 

"T" 



"T" 

I 



Each half word contains a displacement from CKRACTN to an action code 
routine. There is one entry for each action code. The displacement of 
the entry from the beginning of the table (CKRACNDX) is equal to the 
hexadecimal action code. 



CKRAMTBL: Translate and Test Table for A-Z and 0-9 

1 2 CI C2 C3 FF 

r _. T T T T T . — T T 1 

| NU* | NU NU | 00 | 00 | I ... I | 01 | 
L i. ± ± ± ± JL JL J 

*NU = not used 

Only the last 63 bytes of this 256-byte table are used; they are used 
by TRT instructions to determine whether a character whose hex 
equivalent is at least CI is alphameric. The table bytes corresponding 
to the letters A through Z and digits through 9 are set to X 1 00' . The 
remaining bytes in the X'Cl 1 through X'FF 1 range are nonzero. 
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CKROPNDX: Operator Routine Branch Table 
2 4 6 

r T T T : T 1 

| | | | ... || 
L X X X X J 



Each halfword contains a displacement from CKRINTRP to an operator 
routine. There is one entry for each syntactic operator. The 
displacement of the entry from the beginning of the table (CKROPNDX) is 
equal to the hexadecimal code for the operator. 



EXCADRDF: Definition Address Displacement Table 
12 3 



r T T T T 

I I I I I 

L JL J. J. X 



Each byte contains a displacement (X^O' or X'04 f ) from EXCSYNXS to 
the address of the definition table to be used in scanning each FORTRAN 
level. The order of the entries is FORTRAN H, FORTRAN E # FORTRAN G # 
Code and Go FORTRAN, and FORTRAN Gl. 



EXCLODTB: Definition Load Table 

r T T T T T 1 

| name | code | name | code | name | code | 

L r X_ T X J. X X J 

I 

L — code (1 byte) for each syntax definition table. Code 
values are the same as those specified in bits 6-7 of 
byte 1 of the options word. The options word is passed 
by the environmental system to the checker. 

I *- — name (8 bytes) of each definition table. 

There are two entries in the table: IPDTEE,- definition for FORTRAN 
E, and IPDAGH, definition for FORTRAN G, Gl r H and Code and Go. 

MSGTABLE: Table of Message Text Displacements 

2 H 6 1 

r T T — . T T 1 

II II ••• I I 

L X X X X J 

Each halfword contains a displacement from MSG000, the start of 
message zero, to MSGn, the start of the text of error message n. The 
error code n (even value of an even-odd pair associated with a message, 
e.g., 0, 1; 12,13; etc.) is used as an index to MSGTABLE. 

MSG000: Table of Texts of Error Messages 

r • T t T ' 1 

I I I ... I I 

L X X X J 

Entries take the form of a labeled (MSGn) character string defining 
the text of an error message. Entries are variable- length and are 
ordered by (even- numbered) error code n. 
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Table 6. 
r 



IPDSNWKA: 

T 



Syntax Checker Work Area (Part 1 of 2) 



T- T 

Relative Address 



Field Name 



Bytes 



Dec j Hex 



Field Description 



H 



EXCSVRGS 

WKACKPRM 

EXCSYNXS 

EXCCRCRD 
Bytes 1-4 
Bytes 5-8 
Bytes 9-10 
Bytes 11-12 



EXCNXCRD 
EXCFSCRD 

EXCSVCRD 

WKALEVEL 



WKACNCOL 



IPDERWKA 
WKACERSW 



WKASNOSW 



EXCFSCOM 



EXCOMSG 



72 

20 

8 

12 





72 

92 

100 



12 
12 

12 



112 
124 

136 

148 



99 
1 



149 



152 
251 



252 



253 



254 



48 



5C 



64 



70 



7C 



88 



94 



95 



98 
FB 



FC 



FD 



FE 



18-word register save area used by the 

executive. 

5-word area containing parameter list passed 

to checker by executive. 

Table containing the address (zero) of each 

definition table loaded (not loaded). 

Current line information. 

Location of current line. 

Location of buffer containing current line. 

Relative position of current line in buffer. 

Relative position of current line in buffer 

chains received since last initial entry or 

intermediate entry after return code or 4 

(i.e., the relative line number). 

Next line information. Format of 

information is the same as that for EXCCRCD. 

First line of current statement information. 

Format of information is the same as that 

for EXCCRCRD* 

First line of next statement information. 

Format of information is the same as that 

for EXCCRCD. 

Level of FORTRAN for scan (set from options 

word) . 

Code M eaning 

00 FORTRAN H 

01 FORTRAN E 

02 FORTRAN G 

03 FORTRAN Code and Go 

04 FORTRAN Gl 

For standard-form source, contents of the 
continuation column from the last line of a 
statement. For free-form source non-blank 
for a statement of more than one line, 
otherwise blank. 

Error code processor communication area. 
Checker error switch: 
Code Meaning 

00 no error 

01 statement error 
Statement number switch: 
Code Meaning 

00 statement label field is blank. 

01 a statement label (nonblank) is 
present in statement label 
field. 

Comment line switch (standard- form source 

only)': 

Code Meaning 

00 No comment line since 

beginning of statement. 

FF Comment line encountered. 
Comment message switch (standard- form source 
only) : 
Code Meaning 

00 Intervening comment card; 
message has not been sent. 

FF Message has been sent 
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Table 6. IPDSNWKA: Syntax Checker Work Area (Part 2 of 2) 



T T 


T 






Bytes 


| Relative 


Address 


1 

| Field De 




Field Name 


„ ^ 

Dec | Hex 


scription 










L 


L 






1 


^ 

r r 


r 




EXCFSCON 


1 1 


255 


FF 


Continuation switcon (standard-form source 










I only) : 












Code 


Meaning 










| 00 


No continuation line has 
preceded first statement in 
buffer chain received on 
initial entry or 
intermediate entry after 
return code or 4, 










FF 


Continuation line encountered 
first. 


EXCEXSLN 


1 


256 


100 


Extraneous lines switch: 










Code 


Meaning 










00 


No more than twenty lines have 
been found for statement. 










FF 


Have encountered extraneous 
line of statement. 


EXCSLERR 


1 


257 


101 


Statement 

Code 

80 

40 

20 

10 
08 

04 

02 


label errors switch: 
Meaning 

Label contains digit 1-9. 
Label contains 0. 
Label contains extraneous 
character. 

Extraneous character found. 
Message for statement too long 
already sent. 
Statement field missing 
(free-form source only). 
Message for invalid statement 
label issued. 


IPDEXCWK 


23 


258 


102 


Miscellaneous executive (IPDSNEXC) work 










areas. 




WKATINU 


202 


282 


11A 


Table of 


displacement and line number 










information for lines of statement. 


WKACHRST 


1325 


484 


1E4 


Character 
and text 


string containing statement label 
of FORTRAN statement. 


WKASERTB 


256 


1809 


711 


Translate 


and test table used by CKRSERCH (a 










get-character routine). 


WKAGTCHR 


34 


2068 


814 


Informati 


on used and set by the 










get-character routines. 


IPDCKWRK 


173 


2104 


838 


Miscellaneous checker (IPDSNCKR) work areas. 


WKALNEST 


6 


2278 


8E6 


Current syntactic line nest information. 


WKANLIST 


Variable, 


variable 


variable 


This area 


is shared by the line nest list 


and 


but not 






and the qualification information list. 


WKAQLIST 


less than 






WKANLIST 


starts adjacent to WKALNEST and 




1560 






WKAQLIST 
two lists 


starts adjacent to WKAQUALF and the 
grow toward each other. 


WKAQUALF 


12 


variable 


variable 


Qualification information. 


WKADNAME 


8 


4088 


FF8 


IPDSNWKA 


- the name of the area. 



J. X 



J 



IPDSNWKA, whose layout is described above, contains several small tables or work areas 
which require a more detailed explanation. These areas are listed in Table 7* A 
description of the content and format of each table or work area listed follows Table 7. 
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Table 



Work Areas within IPDSNWKA 



-T- 

I 



Work Area 



Initialized! Used, and/or Modified by 



EXCSYNXS 
IPDCKWRK 
IPDERWKA 
IPDEXCWK 
WKACKPRM 
WKAGTCHR 
WKALNEST 
WKANLIST 
WKAQLIST 
WKAQUALF 
WKASERTB 
WKATINU 



IPDSNEXC 

IPDSNCKR 

IPDSNEXC, IPDSNCKR, IPDERERR 

IPDSNEXC 

IPDSNEXC, IPDSNCKR 

IPDSNCKR 

IPDSNCKR 

IPDSNCKR 

IPDSNCKR 

IPDSNCKR 

IPDSNEXC, IPDSNCKR 

IPDSNEXC, IPDSNCKR 



EXCSYNXS : 
r 



Definition Address Table 



"T- 

I 
_-L- 



-T- 

I 
--L_ 



L-, 



-Address (4 bytes) - For each FORTRAN definition table there is the address at which 
the table is located. The order of the entries is the same as that of the EXCLODTB 
table. If the definition table has not been loaded, the address is zero. 
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Table 8. IPDCKWRK: Miscellaneous Checker (IPDSNCKR) Work Areas (Part 1 of 2> 



r t t 


T : 




Bytes 


Relative 


Address 






j Field Name 




T 1 

Dec | Hex 


Field Description 


L 




j. j 


■ 


j. 




1 


P 






| WKASVR13 


4 


2104 | 


838 


Executive's register 13 saved by checker. 


j WKABEGSC 


4 


2108 


83C 


Pointer to first nonblank character in 
source statement. 


| WKALDZCT 


4 


2112 


840 


K operator leading zeros count • 


| WKADGTCT 


4 


2116 


844 


K operator digit count. 


j WKAZROCT 


4 


2120 


848 


K operator zero count. 


| WKATENPW 


4 


2124 


84C 


K operator power of ten. Used to test 
magnitude of a number. 


| WKAADNLS 


4 


2128 


850 


Address of the line nest list (WKANLIST) . 


| WKATPQLS 


4 


2132 


854 


Address of actual top of qualification list 
(WKAQLIST unless changed by a statement 
commit) • 


| WKAVALUE 


4 


2136 


858 


Numeric value (fixed point format) of 
consecutive source digits. 


| WKAWIDTH 


4 


2140 


85C 


Width, w, of format codes, e.g., wH or Iw. 


j WKACKRGS 


64 


2144 


860 


Registers 0-15 saved by the checker on 
return (to the executive); restored by the 
checker when recalled to continue checking 
the same statement. 


| WKASAVNQ 


8 


2208 


8A0 


Temporary save area for nest list register 
and qualification list register. 


| WKACSVSC 


4 


2216 


8A8 


Temporary save area for source pointer 
register, REGSRCPT. 


| WKASVRTN 


4 


2220 


8 AC 


Subroutine return register save area. 


| WKAGTSV 


16 


2224 


8B0 


Register save area for get-character 
routines. 


| WKAMSGAD 


4 


2240 


8C0 


Address of next message information word in 
table WKAMSGTB. 


| WKAMSGTB 


20 






Table of error message information for 
current statement. Contains 5 full-word 
entries of the form: 


| Byte 








Error code (even number value). 


| Bytes 1-3 








Failing character address. 


| WKATEMPH 


2 


2264 


8D8 


Halfword aligned temporary storage. 


| WKACNTDG 


2 


2266 


8DA 


Number of continuous digits evaluated (by 
CKREVALU routine). 


| WKACKRSW 


1 


2268 


8DC 


IPDSNCKR switch byte containing bit 
switches : 


| WKAFALSW 








False switch; if bit (CKRFALSW) = 1, false 
condition exists in an operator or action 
code routine. 


| WKAGLCMT 








Statement global commit switch : if bit 1 
(CKRGLCMT) =1, n : n was encountered in the 
definition for the current statement. 


| WKAKSWCH 


1 


2269 


8DD 


K operator switches: 
bit 7 (CKRKTYPI) : 

1/0 Type is integer/real 
bit 6 (CKRKLEND) : 

1/0 Length is D/E 
bit 5 (CKRKVALU) i 

1/0 Value is nonzero/zero 
bits 5,6,7 (CKRKFAIL) : 

All ones, source is not numeric. 


| WKASVKSW 


1 


2270 


I 8DE 


| K operator switches saved for complex test. 

These switch bits describe the left (real) 
! portion of the complex number. Same form as 

WKAKSWCH. 


| WKANONZS 


1 


2271 


| 8DF 


! K operator byte switch. It is set zero if 

no nonzero digits were encountered; 
| otherwise it is set nonzero. 


| WKAEXPSN 


1 1 


2272 


8E0 


K operator sign of exponent. 



L 



-JL 



_X X J 
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IPDCKWRK: Miscellaneous Checker (IPDSNCKR) Work Areas (Part 2 of 2) 



Field Name | Bytes | 

i. + + + + j, 



-T" 

I 



T T ' 

| Relative Address | 

i. T j, 

Dec | Hex | Field Description 



WKASWTCH 



WKAIMPL1 
WKASVICT 

WKATBLOP 



I 



I 
I 



1 
1 



2273 



2274 
2275 

2276 



8E1 



8E2 
8E3 

8E4 



Temporary processing switches, set and 
tested by various operator and action code 
routines. 

First character of an IMPLICIT range. 
Iteration count saved from qualification 
information for possible action routine use. 
Hexadecimal operator code for +Table or 
-Table operator. 



Table 9. IPDERWKA: Error Code Processor Communications Area 

r t t t 





Bytes 


| Relative 

L ^ 


Address 

j 


1 


Field Name 


r T i 

| Dec | Hex 


1 

Field Description 


j, 





__ + + j, 


h 


WKAEROPT 


4 


| 152 


98 


Location of fourth byte of options word. 


WKAERBFR 


72 


| 156 


9C 


Error message buffer. This must be aligned 
to the middle of a doubleword. 


WKAERRSC 


4 


| 288 


E4 


Address of WKAERCHR or zero if WKAERCHR is 
not to be used. 


WKAERPOS 


2 


| 232 


E8 


Relative line number in binary format. Not 
used if source data set is line numbered. 


WKAERRCD 


1 


| 234 


EA 


Error message code. 


WKASFAIL 


1 


| 235 


EB 


Not operational error byte: 

Code Meaning 
00 No internal errors 
01- OF IPDSNEXC not operational 
10-1F IPDSNCKR not operational 
20-2F IPDERERR not operational 


WKAERNUM 


8 


| 236 


EC 


Data set line number, right adjusted in 
EBCDIC. Used if source data set is 
line-numbered. 


WKAERPAD 


1 


| 244 


F4 


Space for insertion of a blank. 


WKAERCHR 


6 


| 245 


F5 


Source statement characters in error. 



,. ± x ± ± _ j, 

I Note : IPDER depends for its operation on the sizes, order, and contiguity of WKAERNUM, 
[WKAERPAD, and WKAERCHR. 

L ; - 



Table 10 

r 



T' 




— T - 








-T* 






Bytes 


1 
h 

1 


Relative Addres 


S | 

H 




Field Name | 


Dec 


i 

1 


Hex 


Field Description 


- 4— 




- 4— 




1 




I 




T 




T 




1 




1 




EXCSVLNN | 


8 


1 

1 


258 




102 




Temporary storage for data set line number 
of line pointed to by EXCSVCRD. 


WKATECHR | 


6 


1 
1 


266 




10A 




Temporary storage for six- character error 
string. 


EXCSVLBL | 


4 


1 
1 


272 




110 




Address of last digit of statement label 
(free-form only). 


WKATERSC | 


4 


1 

1 


276 




114 




Temporary storage for address of error 
string. 


EXCFCHAR | 


1 


1 
1 


280 




118 




Temporary storage for folding lower case 
alphabetic s to upper case. 



L 



JL 



X JL -L 
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Table 11 
r 



WKACKPRM: Checker Parameter List 






(0) 


Beginning source pointer 


WKABEGST | 


4 


(4) 


End source pointer 


WKAENDST | 


8 


(8) 


Address of definition table 


WKADEEF | 


12 


(C) 


Address of work area 


WKAWADDR | 


16 


(10) 


Address of options word 


WKAOPTPT | 



r 


-T- — 


-T- 




— T - 








- T . 






Field Name 


1 
1 
1 


Bytes 


1 

h 

1 


Relative Addres 


s | 

H 






Dec 


1 


Hex 


Field Description 


i- 




I 




- J— 




1 




i 






1 




T 




1 




i 






WKABEGST 


1 
1 
1 
1 


4 


1 
1 
1 
1 


72 




48 ; 




Initially supplied beginning source pointer. 
This field points to the start of the 
statement field of a source statement in 
WKACHRST. 




WKAENDST 


1 
1 
1 
1 


4 


1 
1 
1 
1 


76 




46 




Initially supplied end source pointer. This 
field points to the last character of the 
statement field of a source statement in 
WKACHRST. 




WKADEEF 


1 
1 


4 


1 
1 


80 




50 




Address of the definition table to be used 
by the checker when scanning. 




WKAWADDR 


1 


4 


1 


84 




54 




Address of the IPDSNWKA work area. 




WKAOPTPT 


1 
1 


4 


1 
1 


88 




58 




Address of the options word passed by the 
environmental system to the syntax checker. 


L. 




_j~ 




—j._ 




— L_ 




_JL 
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Table 12. WKAGTCHR: Areas for Communication with the Get Character Routines 



Field Name 



Bytes 



Relative Address 



Dec 



Hex 



H 



Field Description 



WKASRCCR 
source 
pointer 
format 
Byte 



Bytes 1-3 
WKASRCUP 



2068 



2072 



WKASCHRS 



20 



2076 



WKASRCNT 

WKAMVCNT 

WKASRCHX 
WKASNDSW 



1 
1 



2096 

2098 

2100 
2101 



814 



818 



81C 



830 

832 

834 
835 



Current source pointer. This field points 
to the first character obtained by a get 
character routine. 

Source end indicator 
Code Meaning 
00 End of statement not reached 
80 End of source statement reached 
Address of the source character in the 
character string. 

Update source pointer. CKRGTNBl, CKRGTNBS, 
CKRGTANY and CKRSKANY set this field to the 
next character beyond the last source 
character found or set it negative if there 
iis no next character. It is in source 
pointer format. (See WKASRCCR) 
Result buffer to which source characters are 
moved. A special character (that is non 
alphameric) is moved to the buffer beyond 
the last character obtained if a CKRGTNBl, 
CKRGTNBS, or CKRGTANY request cannot be 
completely satisfied. 

The number of characters to be moved to 
WKASCHRS when CKRGTNBS or CKRGTANY is 
called, or the number to be skipped when 
CKRSKANY is called. 

The number of source characters actually 
moved by CKRGTNBS or CKRGTANY, or skipped by 
CKRSKANY. 

The character to be searched for by 
CKRSERCH. 

Source end switch. 
Meanin g 

not end of source 
end of source encountered 
before a get-character request 
was fulfilled. 



Code 
00 
01 



1§:ki§§_ilzi§.i. Line Nest List and Qualif ication Inform ation List Pushdown Stacks 

The nest and qualification lists are pushdown stacks that grow toward each other in 
order to optimize storage usage. The nest list grows from lower to higher-numbered 
storage locations, adding a 6-byte entry, or "nesting", when the table scan begins, and 
thereafter, whenever the table scan encounters an active line reference. A table 
reference, + or -, does not cause nesting. On reaching the end of an active definition 
line, the nest most recently added is removed from the nest list ("unnested") , thereby 
adding six bytes to the space into which the nest list and the qualification list can 
expand. 

The qualification list grows from higher to lower- numbered locations, adding a 12-byte 
entry, whenever a < or ( is encountered to signal the beginning of a list of alternatives 
or an option in the definition. The qualification entry most recently added is removed 
from the list when its closing ) or > is encountered. 

All the nest entries and some of the qualification entries can be deleted when a 
statement commit ( : ) is encountered in the definition. The statement commit makes the 
current line (described in WKALNEST) the top line. Therefore, all entries in the nest 
list are deleted (by resetting a pointer) since they describe earlier lines that will not 
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be "unnested to M again in checking the current statement. The statement commit also 
eliminates the need for saving any of the qualification entries associated with earlier 
lines. However, the remaining qualification entries are not shifted down to create 
growth space until space is actually needed for an additional nest or qualification 
entry. 



Table 13. WKALNEST: Current Line Nest 



| 0(0) WKANDFPT 


| 2(2) WKANDFBK 


! Displacement pointer to 


| Displacement pointer back 


, current definition line 


| to earlier definition 

j. _ _ 


r t 


T 


| 4(4) | 5(5) 




| WKANLVLN | WKANFMSG 




| Level of | Error mess 


age| 


| nesting | code in 




| | effect 





j 3 halfwords 



V 



"T T 

| Relative Address | 
|. T 1 

I Dec | Hex | Field Description 



Field Name 



Bytes 



H 



WKANDFPT 
WKANDFBK 

WKANLVLN 
WKANFMSG 



2 
2 

1 
1 



I 



I 
I 



2278 
2280 

2282 
2283 



8E6 j Displacement to current definition line from 

| beginning of definition table. 

8E8 | Displacement immediately beyond the 

| reference to the current line on the earlier 

| definition line. 

8EA | Level of nesting of the current line, 1 for 

| top line of definition. 

8EB | Error message code in effect. 
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Table 14. WKANLIST: Line Nest List Pushdown Stack 



16(6) 



i. ^ 



8(8) 

Earliest line nest 

(Level before statement commit) 



12(C) 

Next to earliest line nest 



|18(10) 



1 



|. 

20(14) 



(. 



., 



Next to Current Line Nest 

(Immediately prior to current line nest) 

r 

Last in, first out | 

j 



6 byte 
entries on 

halfword 
boundaries 



Table 15. WKAQLIST: Qualification Information List Pushdown Stack 

r ■ 1 

(Qualification information for next to current, that is 
| next to innermost, < > or ( ) encountered in definition 

I 

| Last in, first out 

|. _ 



I 



|. -. 

| WKAQLIST -24 (WKAQLIST -18) 

| Qualification information for outermost < > or ( ) 

J. 

| WKAQLIST -12 (WKAQLIST -C) 

| Qualification information for requirement prior to first < 

j or ( (always committed) 

L . 

WKAQLIST 



I 
12-byte 

entries on 
fullword 

boundaries 

I 
V 
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Table 16. WKAQUALF: Qualification Information 



|0(0) WKAQSCPT 

| Pointer to source for retry 
h 



4(4) WKAQDFBK 
Displacement 
pointer to 
definition for 
iteration 



| 6 (6) WKAQNLVL 
(Level of nesting 
| of corresponding 
| line 

I 



|7(7) WKAQFALS 
(Displacement to 
( next ) , | , or > 
I 



T * 1 

8(8) |9(9) |10(A) |11(B) 
WKAQTRUE|WKAQICNT | WKAQSWCH | Not used 
Displ. | Iteration | Commit switch | 
to right | count | | 
brace | | | 
x x x 



I 
3 full words 



I 
I 
V 



r 


_ T , 


"-T- 






~T 






j Bytes 


h 


Relative 


Addres 


s| 

h 




j Field Name 


T 

Dec | Hex 


Field Description 


i— 


± 


- X- 




. 


i 




r 


T 


T 


T 


i 




| WKAQSCPT 


1 4 




3900 


F3C 




Source pointer for backup and retry if 
alternative or option fails. 


| WKAQDFBK 


1 2 




3904 


F40 




Displacement in table to beginning of 
optional definition for iteration. 


| WKAQNLVL 


1 1 




3906 


F42 




Level of nesting of corresponding line. 


| WKAQFALS 


1 1 




3907 


F43 




Displacement from beginning of current line 
to the next ) , | , or >, whichever comes 
first. 


| WKAQTRUE 


1 1 




3908 


F44 




Displacement from beginning of current line 
to end of these alternatives, >. 


| WKAQINCT 


1 1 




3909 


F45 




Count of successful iterations. 


| WKAQSWCH 


1 1 
1 1 




3910 


F46 




Switch byte; bit (CKRCMTSW)=1 if current 
alternative or option is committed. 
Not used. 



L 



JL X X- 



X. 



J 



WKASERTB : 
Routine 



Translate and Test Table for CKRSERCH, a Get-Character 



FF 



-T- 

I 
-X- 



Every entry is a byte of binary zeros, except while one character is 
being tested for. At that time the character in question is used as an 
index to WKASERTB, and the byte pointed to is made nonzero for a TRT 
instruction. It is subsequently reset to zero. 
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WKATINU: Table of Displacement and Line Number Information for Lines of 
Statement. 

2 AC hex C8 

r T T T T T 1 

II II I ... I I 

L r JL T X J. J. J. J 

I 

l — line number (8 bytes). For a line-numbered data set the 
data set line number right adjusted in EBCDIC; for a non 
line-numbered data set, the first two bytes of field 
contain the relative line number, 

>- — displacement (2 bytes) of last character of line from WKACHRST-1. 

The ith ten- byte entry contains the displacement from the beginning 
of the character string of the last character of the ith line and its 
associated data set or relative line number. Bit of the nth entry is 
set to 1 when the (n-l)th word points to the last line of the statement. 
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SECTION VI: DIAGNOSTIC AIDS 



This section contains information that may be useful in diagnosing 
difficulties with the syntax checker. Included are: 



Register Contents 



Table 16 provides a description of general register contents for 
locating errors in Syntax Checker Operation. 



Debugging Aids 



The syntax checker has one macro, three global symbols, 
byte, WKASFAIL, to aid in getting and interpreting dumps, 
and 18, 



and a flag 
See Tables 17 



The flag byte, WKASFAIL, 
IPDSNEXC or IPDSNCKR detects 
not use this diagnostic tool 
IPDER to construct the error 
with a message number IPDnnn 
value of WKASFAIL plus 255. 
to the environmental system, 
of error are listed in Table 
IPDER is called to construct 
this case the message number 
explained in Table 18. 



is set to a non-zero value if the csect 
an operational error. IPDER currently does 

A non-zero value for WKASFAIL causes 
message "System or Syntax Checker Failure" 
where nnn is a decimal number equal to the 
The executive will then send this message 
Values of WKASFAIL and associated causes 
18. The message* will also be issued if 
a message for which no text is defined. In 
will be an even number less than 255, as 



Table 17. General Register Contents (Part 1 of 2) 

r T . _ 

Register Contents 




IPDSNEXC 

and 
IPDSNCKR 



1— IPDERWKA address 
13 — Save area address 
14 — Return address 
15 — Entry point address 

1 — Pointer to parameter list 
13 — Save area address 
14 — Return address 
15 — Entry point address 
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Table 17, General Register Contents (Part 2 of 2) 



"T" 

I 
_JL- 



I 



CSECT 



Register Contents 



II. 

During processing the registers usually have the following contents: 

T 



H 



(a) 

IPDERERR 



(b) 

IPDSNEXC 



(c) 

IPDSNCKR 



I 

Note: At times, 
registers. 



1, 13, 14 f 15 — same as at entry. Register 1 is used as 
the base register for IPDERWKA, and register 15 is 
used as the base register for IPDERERR 

2 — bits 0-23 and 31 zero. Error code bits 0-6 in bits 
24-30. 

3,4,5 — work registers. When the MVC instruction 
labeled ERREXMVC is the subject of an EX 
instruction, 3 contains the address of the 
transmitting field, 4 contains one less than the 
number of characters being moved, and 5 contains the 
location of the receiving field. 



0,1,4,14,15 — Work registers 

2 — Linkage register for calling internal subroutines 

3 — Branch register used only in processing free-form 

source 
5 — Index to WKATINU table 
6 — Location of column 1 of a line 
7 — Pointer used in building character string 
8 — Length minus one of line of statement 
9 — Options word DSECT register 

10 — Communications word DSECT register 

11 — Contents of register 1 upon entry to IPDSNEXC 

12 — Base register 

13 — Address of syntax checker work area (IPDSNWKA) 



0,1,2, 3,10, 14,15— Work 
registers 

4 — Line nest list pointer 

5 — Qualification list pointer 

6 — Source pointer 

7 — Base register for syntax definition table 

8 — Contains operator or action code currently being 
interpreted 

9 — Syntax definition table displacement pointer 
11,12 — Base registers for CSECT 
13 — Address of syntax checker work area (IPDSNWKA) 



some 



registers are saved so they can be used as work 
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Table 18. 



Causes of Message 
of 2) 



'System or Syntax Checker Failure" (Part 1 



T T 

WKASFAIL 
setting 
( in hexa 
decimal) 



Originating 
CSECT 



Cause 



Associated Debugging Aids 



H 



IPDSNEXC 



01-OF 



01 



02 



03 



04 



05 



06 



Intermediate 
entry but there 
are no input 
records in 
buffer chain 



Standard-form 
variable- length 
records speci- 
fied in options 
word 

Zero- length text 
in variable- 
length record 



IPDSNEXC recal- 
led to continue 
checking buffer 
chain but 
IPDSNEXC" s prior 
return code was 
not 8 

Mishandling of 
relative line 
numbers . 



Intermediate 
entry after 
return code 12 
but calling 
program has 
changed options 
word specifica- 
tion from 
standard-form 
to free- form 
since last call 
to IPDSNEXC 



Executive 1 s registers 2-8 are 
saved in EXCSVRGS prior to 
return to calling program. The 
checker, if called, has 
previously saved registers 9-12 
(probably valid) in EXCSVRGS. 
The registers referred to below 
are those in EXCSVRGS. 

Buffer address specified in 
first word of parameter list 
to IPDSNEXC is zero, or every 
buffer in chain has a count of 
zero records or its high order 
bit set to one. Register 11 
contains location of parameter 
list passed to IPDSNEXC. 

The syntax checker will 
not accept standard- form 
variable- length records. 
Register 9 contains 
location of options word. 

The executive has calculated 
a zero-length FORTRAN text 
field within a variable-length 
input record. Register 6 
contains the address of that 
field. 

Register 10 contains 
location of communications 
area. 



IPDSNEXC has calculated a 
very large (at least greater 
than 65,535) relative line 
number. Note: issuing of 
return code 12 does not reset 
relative line number to zero. 

This is a special check 
on the interface to 
avoid ABEND of IPDSNEXC. 
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Table 18. 



Causes of Message 
of 2) 



"System or Syntax Checker Failure" (Part 2 



T T 

WKASFAIL 
setting 
(in hexa 
decimal ) 



\ 

IPDSNCKR 



Originating 
CSECT 



Cause 



Associated Debugging Aids 



H 



11-lF 



11 



12 



13 



14 



15 



16 



17 



18 



Unr ecogni zable 
operator code 



Too many right 
braces, >s 



Too many right 
parentheses, )s 



Longest table 
argument length 
is zero or too 
large for buffer 
area 

Unrecognizable 
or illegal table 
function 
operator code 

Too many 
unnestings 



Unr ecogniz abl e 
action code 



Length of 
literal zero or 
too large for 
buffer area 



Checker's registers 0-15 are 
saved in WKACKRGS prior to 
restoration of executive's 
registers and BR 14. The 
registers referred to below are 
those saved in WKACKRGS. 

Hexadecimal operator code — in 
low order byte of register 8; 
displacement to bad operator 
code in definition table — in 
register 9. 

Displacement 1 byte past > 
operator code in definition 
table — in register 9. 

Displacement 1 byte past ) 
operator code in definition 
table — in register 9. 

Length — in register 4; location 
of length in definition 
table — in register 5. 



Location of operator code in 
definition table — in register 
2. 



Displacement 1 byte past end- 
of-line operator — in register 
6. 

Action code — in low order byte 
of register 8; location of 
action code in definition 
table — in register 10. 

Length — in register 10 and in 
WKASRCNT; displacement to 
length in definition table — in 
register 9. 



H 



IPDERERR 



not set 
by 

IPDERERR 



Error processor 
was called with 
a message code 
for which no 
message text was 
defined. 



Actual message code passed to 
error code processor appears as 
nnn of IPDnnn field in message. 
(If actual code was an odd 
number, nnn is the next lower 
even number. ) 
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Table 19. Debugging Aids Which Depend on Assembly Parameters 



| I. Macro: 
h 



._ . T _ 

CSECT in \ 
which Used) 



h 



Macro 
Name 



Meaning 



H 



BOMBR 



h 



IPDSNEXC JThe macro can be used to invalidate an operator 

| in an Assembler Language Instruction. Zeroes are 
| placed into the fourth byte preceding the 
j location at which the macro is specified. When 
| the program tries to execute the zero operator, a 
| dump is taken. (Not used in released version.) 



H 



II. Global Symbols : 



Symbol 
Name 

\> 

SEXCALMS 



CSECT in 
which used 



Meaning 



H 



IPDSNEXC 



& EXCALMT 



SITNLDBG 



IPDSNEXC 



IPDSNCKR 



(1) If set to * + l # the program dumps at the point 
at which a syntax checker system failure is 
recognized. 

(2) If set to EXCALMS, the program returns to the 
environmental system with an indication (error 
message IPD000) that the syntax checker is not 
operational. (Set to EXCALMS in released 
version. ) 

Same as SEXCALMS except set the symbol to 
EXCALMT. (Set to EXCALMT in released version.) 

(1) If set to • E 1 : (extended) or • L 1 : (limited), 
conditionally assembled tests for errors in the 
checker, or its interface with the executive, or 
the language definition table, are assembled and 
executed. When such a test fails, WKASFAIL is 
set and control is returned .to IPDSNEXC to record 
a system or syntax checker failure (IPD000). 
(Set to "E" in released version.) 

(2) If SITNLDBG is not set or is set null, ' ', 
the conditional debugging tests in (1) are not 
assembled into IPDSNCKR. 
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APPENDIX A: 



SYSTEM GENERATION 



At system generation time, the CHECKER 
macro must be specified in order to include 
the FORTRAN IV Syntax Checker modules in 
SYSl.LINKLIB of the generated system. This 
macro, which may specify either the FORTRAN 
IV or the PL/1 syntax checker, is coded as 
follows for FORTRAN: 

CHECKER Macro Instruction Format: 

r T T 1 

| Name | Operation | Operand | 
h + x ., 

| [name] | CHECKER |TYPE= FORTRAN | 

III I 

| | | [DESIGN= | 

I | | ( design [, design], ..) ] | 
l x x J 

where 'design* specifies the FORTRAN 
language level (s) to be included as E f G, 
and/or H. If this parameter is omitted, 
level G is assumed. Level G or H also 
allows syntax checking for levels Gl and 
Code and Go. 

The relationship between the CHECKER 
parameter specifications and the contents 
of SYS1.LINKLIB is illustrated in Table 19. 



Table 20. Contents of SYSl.LINKLIB 

r t 1 

CHECKER (FORTRAN IV Syntax Checker 
Design |Load Modules in SYSl.LINKLIB 
Values | After System Generation 



E |IPDTEE, IPDSNEXC 
+ „„ 

G and/or H | IPDAGH, IPDSNEXC 
or null 



H 



h 



E and G |IPDTEE, IPDAGH, IPDSNEXC 
and/or H j 



SYSTEM GENERATION PROCESSING 



System/360 Operating System is generated 
in two stages. In Stage I, user-supplied 
macro instructions that describe both the 
installation 9 s machine configuration and 
the programming options desired are 
analyzed and used to generate a job stream. 
In Stage II, this job stream is processed 
to generate the libraries of modules that 
form the user's operating system. 

During Stage I the CHECKER macro tests 
the validity of its specified parameters 



and sets the following global symbols 
pertaining to the FORTRAN IV Syntax 
Checker: 



&SGMENTBC57) is set to one if the 
CHECKER macro is specified; 

£SGCKFTB(1) is set to one if 
TYPE=FORTRAN is specified; 



&SGCKFTB<2) is set to one if E is 
specified as one of the design 
levels ; 

SSGCKFTBO) is set to one if G is 
specified as one of the design 
levels or if the DESIGN parameter is 
omitted ; 

SSGCKFTBU) is set to one if H is 
specified as one of the design 
levels. 

If an invalid 'design 1 ; parameter is 
specified or if the CHECKER macro is 
specified more than once for FORTRAN, an 
error message is printed and system 
generation terminates in Stage 1 before any 
job control language for subsequent stages 
is produced. 

The GENERATE macro, which is specified 
as the last macro instruction in a user* s 
system generation input deck, contains 
these inner macro instructions that pertain 
to the FORTRAN IV Syntax Checker: 

1. SGGEN100 — If the CHECKER macro is 
specified but, in the SCHEDULR macro, 
OPTIONS=CRJE or OPTIONS=TSO is not, 
and if GENTYPE=ALL in the GENERATE 
macro, SGGEN100 issues a warning 
diagnostic, which states that all 
syntax checker modules will be omitted 
from the generated system. All the 
&SGCKFTB symbols are set to zero. 
However, if GENTYPE=PROCESSOR, the 
checker modules will be included in 
the generated system whether or not 
CRJE or TSO is specified. 

2. SGIPD400 — Control cards are 
generated to link the IPDSN and IPDER 
modules into one load module, 
IPDSNEXC, in SYSl.LINKLIB during Stage 
II of system generation. Modules 
IPDSN and IPDER, along with IPDAGH and 
IPDTEE, are in the Syntax Checker 
component library, SYS1.FO550. 
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3. SGIPD500 — Controls cards for the and/or SSGCKFTBU) are one, IPDAGH is 

IEBCOPY utility program are generated copied, 
so that the IPDTEE and/or IPDAGH 

modules will be copied from SYS1.FO550 If SSGCKFTB(l) is zero, SGIPD400 and 

to SYS1.LINKLIB during Stage II of SGIPD500 are not called. No control cards 

system generation. If £SGCKFTB(2) is will be generated and the FORTRAN checker 

one, IPDTEE is copied; if SSGCKFTBO) modules will not be placed on SYSl. LINKLIB. 



114 



APPENDIX B: ERROR CODE MESSAGE ORIGINATOR CROSS REFERENCE TABLE 



I 
-+- 



Originator 



h 



Error 
Code 



Text 



IPDSNEXC 



IPDTEE 



IPDAGH 



IPDSNCKR 



Action 
Code 



Error 
Code 



Action 
Code 



Error 
Code 



000, 001 



System or syntax checker 
failure 



h 



002, 003 



Unrecognizable stmnt or mis- 
spelled keywd 



004, 005 



Unsigned integer expected 



006, 007 



Expression expected 



008, 009 



Possibly too many subscripts 
precede 



010, 011 



Too many subscripts 



012, 013 



) expected 



014, 015 



Arith IF requires statement 
number list 



h 



016, 017 



h 



Invalid expression in IF 
statement 



018, 019 



h 



Unrecognizable stmnt 
after logical IF 



X 



h 



020, 021 



Non-zero integer expected 



022, 023 



h 



Illegal statement after 
logical IF 



024, 025 



Statement expected 



h 



026, 027 



Data set ref number expected 



028, 029 



Length specification 
invalid 



h 



030, 031 



( expected 



h 



032, 033 



Name expected 



034, 035 



Dummy argument expected 



h 



036, 037 



Array dimensions expected 



038, 039 |/ expected 

x 



X - indicates the originator of the message 
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r : n 

| Originator | 

r~ T ' + ■ T T : T " J 

| | | | | IPDTEE | IPDAGH | 

|| II |- t + T ^ 

| Error | III Action | Error | Action | Error | 
| Code j Text | IPDSNEXC| IPDSNCKR | Code | Code | Code | Code | 
|. 4 + 4 + 4 + 4 ^ 

j 040, 041 | Invalid data type | | III | X j 

h + 4 4 4 4 + 4 ^ 

j 042, 043 | Statement number expected | | | X | X | X | X j 
h 4 4 4 4 4 4 4 — ., 

|044, 045 I'TO' expected | | III I X j 

h 4 4 4 4 4 4 4 ^ 

| 046, 047 (Argument expected | | | | X | | X | 

| 04 8, 049 | Data list expected | | III I X | 

j 050, 051 | Relational operator expected j j j | | | X j 
h 4 . 4 4 4 4 4 4 ^ 

1 052, 053 |, expected j | j j X | | X | 

h 4 4 4 4 — _„4 4 4 < 

| 054, 055 | Operand expected in arith | | i I I I I 
j (expression | | j j X | | X | 

h 4 4 4 4 4 4 4 1 

| 056, 057 | Operand expected in logical | | I I I I I 
j | expression | | III | X | 
|. 4 4 4 4 4 4 4 ^ 

j 058, 059 | I/O list item expected j | j j X j | X | 
h „ + 4 4 4 4 4 4 _, 

|060, 061 I ■ expected | | | | X | | X | 
h 4 _ 4 4 4 4 4 4 + 

| 062, 063 | Incorrect parameter - must | | I I I i i 
| | be E, L, or U | | | | X | | X | 

I. 4 4 4 4 4 4 4 ^ 

| 064, 065 | DEBUG parameter expected | | | | | | X | 
|. 4 . 4 4 4 4 4 4 ^ 

1 066, 067 (Subscript expected II I | X | | | 

h _ — 4 4 4 4 4 4 4 ^ 

| 068, 069 | Too many levels of | | I I I I I 
j | parentheses j | j j X j | X | 
[ 4 4 4 4 4 4 4 ^ 

| 070, 071 | Statement too long | X | III I I 

1 072, 073 |Integer expected | | | X | | X | | 

j 074, 075 | Complex number invalid | | j | | X | j 
h 4 4 4 4 4 4 4 ^ 

| 076, 077 (Delimiter missing or invalid | | III I I 
| | FORMAT code | | ( | X | | X | 

h 4 + 4 4 4 4 4 ^ 

| 078, 079 | Variable list expected | | III | X ( 
I. 4_ 4 4 4 4 4 4 ^ 

1 080, 081 j. expected in FORMAT code | | j j X | | X | 
h 4 4 4 4 4 4 4 ^ 

| 082, 083 | Name too long | | X | | | II 

I. 4 4 4 4 4 4 4 ^ 

( 084, 085 (Statement number invalid ( X j X I i I I ! 
h 4 . 4 4 4 4 + + ^ 

1 086, 087 |H-literal incomplete | | X j | | | j 

I. _ + 4 4 4 + 4 4 ^ 

| 088, 089 | Field width not in range | | III II 

I |l-255 | | X 1 1 X | | X | | 

L X ± ± X X X X J 



| X - indicates the originator of the message 
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r* 

I 

-+- 



| Error 
Code 



Text 



IPDSNEXC 



Originator 



IPDTEE 



IPDAGH 



IPDSNCKR 



Action 
Code 



Error 
Code 



Action 
Code 



Error 
Code 



1090 



091 



Literal exceeds 255 
characters 



1092 



093 



Statement analysis exceeds 
table limits 



1094 



095 



END requires blank label £ 
contin fields 



1096 



097 



Invalid or excess source 
characters 



1098 



099 



Invalid range in IMPLICIT 
statement 



100 
102 



101 



First line is a continuation 



103 



Comment line within 
statement 



104 
106 



105 



Too many lines in statement 



107 



Too many decimal places for 
field width 



h 



1108 



109 



Decimal places must be 
specified 



110 
112 



111 



) required for implied DO 



113 



h 

|. 

|116 

t- 

1118 



DO variable cannot be 
subscripted 



1114 



115 



DEBUG facility not supported 



117 
119 



Exponent missing or invalid 

Real constant must have at 
least 1 digit 






X 
+ 






120 
122 
124 
126 
128 



121 



Integer too large 



X 



123 



Closing ' expected 



125 



Data illegal for dummy array 



127 



Real number expected 



129 



Invalid characters after 
STOP or PAUSE 



h 



h 



130 
132 



131 



Real number outside of 
allowable range 



133 



FORMAT stmnt no. or array 
name expected 



\- 

IX - 

L 



indicates the originator of the message 
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r 1 

| Originator | 

r t • + t— : — t t J 

|| III IPDTEE | IPDAGH | 

|| || I T +____,. i 

| Error | II |Action| Error | Action | Error | 

j code j Text | IPDSNEXC | IPDSNCKR | Code | Code | Code | Code | 

|134, 135 | Misplaced length | | | \ \ I | 

j (specification precedes | | j j | | X | 

| 136, 137 | List-directed I/O illegal | | J | | X | | 

I. + + 4 4 4 4 4 1 

| 138 , 139 |Arith exp expected after | | I I I I I 
j | relational op j | j | | | X | 
|. 4 4 4 4 4 4 4 A 

| 140,141 | Invalid comma in DO | | | j X | | X j 
y 4 4 4 + „_. — 4 4 4 ^ 

|142,143 |= expected | | | | X | | X | 

h 4 . 4 4 4 + 4 4 ., 

1 144 , 145 | Literal contains no | | I I I I I 
j | characters | | X j j | | | 
h 4 4 4 4 4 4 4 ., 

j 146, 147 | Invalid IF after logical IF | | III | X j 

I. 4 4 4 + - 4 4 4 ^ 

1 148, 149 | Invalid decimal point | | X | | | | | 
y 4 1 4 4 4 4 _ + + ^ 

|150, 151 |Too many digits in | X | | | | | | 

j j statement number j | III II 
h 4 4 4 4 4 4 .4 ^ 

1 152, 153 I Statement no. not complete | X | | | | | | 
j I on initial line | | I I I I I 
h 4- 4 4 + . 4 4 4 ., 

1 154, 155 I Last line is a continued | X | III I I 
j I line j I I I I I I 
|. 4 4 4 4 4 4 4 ., 

1 156, 157 I Invalid characters before | X | III I I 
I I statement | | I I I I I 
h 4 4 4 4 4 4 4 ., 

1 158, 159 I Too many subscripts precede | | | X | | X | | 

I. 4 4 4 4 4 4 4 ^ 

j 160, 161 |END too far on line | | j X | | X | j 

|. x . x x x x x x \ 

|X - indicates the originator of the message 
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APPENDIX C; ASSEMBLY OF SUBSET DEFINITION 



SUB 


SUBSET LANGUAGE DEFINITION 














PAGE 1 


LOC 


OBJECT CODE ADDRl ADDR2 


STMT 


SOURCE 


STATEMENT 


F30SEP69 


3/03/70 






2 


**************************************************************** 


SUB00030 






3 


* 








* 


SUB00040 






4 


♦SYNTAX 


SUBSET 






* 


SUB00050 






5 


* 








* 


SUB00060 






6 


*********************************************************************** 


SUB00070 


000000 




7 


SUBSET 


CSECT 








SUB00080 


000000 


0002 


8 




DC 


AL2(LIN00001-SUBSET) POINT TO FIRST STMNT. 


DEF. 




SUB00090 






9 


*********************************************************************** 


SUB00110 






10 


* 








* 


SUB00120 






11 


♦SUBSET 


= *3 


< 'DO' DO 1 M ASSIGNMENT | 




* 


SUB00130 






12 


* 


+KEYWORD | N ASSIGNMENT > 




* 


SUB00140 






13 


* 








* 


SUB00150 






14 


*********************************************************************** 


SUB00160 


000002 




15 


LIN00001 


EQU 


* START OF DEFINITION 






SUB00170 


000002 


30 


16 




DC 


ALKDEFMESSG) ERROR MESSAGE OPERATOR 


* 




SUB00180 


000003 


03 


17 




DC 


ALKCOD003) ERROR CODE 






SUB00190 


000004 


00 


18 




DC 


ALKDEFLBRCE) START OF ALTERNATIVES 


< 




SUB00200 


000005 


OC 


19 




DC 


ALKALT00001-LIN00001) FALSE DISP. 






SUB00210 


000006 


ID 


20 




DC 


ALKBRCOOOOl-LINOOOOl) TRUE DISP. 






SUB00220 


000007 


26 


21 




DC 


ALKDEFQUOTE) LITERAL OPERATOR 


' 




SUB00230 


000008 


02 


22 




DC 


ALK002) LENGTH OF LITERAL 






SUB00240 


000009 


C4D6 


23 




DC 


C'DO' 






SUB00250 


00000B 


12 


24 




DC 


ALKDEFSYMBL) NEST OPERATOR 






SUB00260 


oooooc 


0021 


25 




DC 


AL2(LIN00002-SUBSET) DO 






SUB00270 


00000E 


04 


26 


ALT00001 


DC 


ALKDEFOR) ALTERNATE OPERATOR 


1 




SUB00280 


00000F 


12 


27 




DC 


ALKALT00002-LIN00001) FALSE DISP. 






SUB00290 


000010 


14 


28 




DC 


ALKDEFMNAME) M NAME OPERATOR 


M 




SUB00300 


000011 


12 


29 




DC 


ALKDEFSYMBL) NEST OPERATOR 






SUB00310 


000012 


0065 


30 




DC 


AL2(LIN00003-SUBSET) ASSIGNMENT 






SUB00320 


000014 


04 


31 


ALT00002 


DC 


ALKDEFOR) ALTERNATE OPERATOR 


1 




SUB00330 


000015 


17 


32 




DC 


ALKALT00003-LIN00001) FALSE DISP. 






SUB00340 


000016 


32 


33 




DC 


ALKDEFTABLP) +TABLE-NAME OPERATOR 


+ 




SUB00350 


000017 


00A8 


34 




DC 


AL2(LIN00004-SUBSET) KEYWORD 






SUB00360 


000019 


04 


35 


ALT00003 


DC 


ALKDEFOR) ALTERNATE OPERATOR 


1 




SUB00370 


00001A 


ID 


36 




DC 


ALKALT00004-LIN00001) FALSE DISP. 






SUB00380 


00001B 


16 


37 




DC 


ALKDEFNAME) NAME OPERATOR 


N 




SUB00390 


00001C 


12 


38 




DC 


ALKDEFSYMBL) NEST OPERATOR 






SUB00400 


00001D 


0065 


39 




DC 


AL2(LIN00003-SUBSET) ASSIGNMENT 






SUB00410 


00001F 




40 


ALT00004 


EQU 


* 






SUB00420 


00001F 


02 


41 


BRC0Q001 


DC 


ALKDEFRBRCE) END OF ALTERNATIVES 


> 




SUB00430 


000020 


36 


42 




DC 


ALK DEFEND) END OF STATEMENT DEFINITION 




SUB00440 






43 


*********************************************************************** 


SUB00460 






44 


* 








* 


SUB00470 






45 


*DO = 


S N 


»=• -OPERATOR K $100 •,• : 




* 


SUB00480 






46 


* 


*4 -OPERATOR K $100 ( •,* / 




* 


SUB00490 






47 


* 


-OPERATOR K $100 ) 




* 


SUB00500 






48 


* 








* 


SUB00510 






49 


*********************************************************************** 


SUB00520 


000021 




50 


LIN00002 


EQU 


* START OF DEFINITION 






SUB00530 


000021 


20 


51 




DC 


ALKDEFSTNUM) STATEMENT NO. OPERATOR 


S 




SUB00540 


000022 


16 


52 




DC 


ALKDEFNAME) NAME OPERATOR 


N 




SUB00550 


000023 


26 


53 




DC 


ALKDEFQUOTE) LITERAL OPERATOR 


i 




SUB00560 


000024 


01 


54 




DC 


ALK 001) LENGTH OF LITERAL 






SUB00570 


000025 


7E 


55 




DC 


c' = » 






SUB00580 


000026 


34 


56 




DC 


ALKDEFTABLM) -TABLE-NAME OPERATOR 


- 




SUB00590 


000027 


0046 


57 




DC 


AL2(LIN00005-SUBSET) OPERATOR 






SUB00600 


000029 


IE 


58 




DC 


ALKDEFNUMBR) NUMERIC CONSTANT OPERATOR 


K 




SUB00610 


00002A 


2E 


59 




DC 


ALKDEFACTN) ACTION CODE OPERATOR 


$ 




SUB00620 


00002B 


00 


60 




DC 


ALKACT100) ACTION CODE 






SUB00630 


00002C 


26 


61 




DC 


ALKDEFQUOTE) LITERAL OPERATOR 


i 




SUB00640 


00002D 


Ol 


62 




DC 


ALK 001) LENGTH OF LITERAL 






SUB00650 


00002E 


6B 


63 




DC 


c\» 






SUB00660 


00002F 


OC 


64 




DC 


ALKDEFSTCMT) STATEMENT COMMIT 






SUB00670 


000030 


30 


65 




DC 


ALKDEFMESSG) ERROR MESSAGE OPERATOR 


* 




SUB00680 


000031 


04 


66 




DC 


ALKCOD004) ERROR CODE 






SUB00690 


000032 


34 


67 




DC 


ALKDEFTABLM) -TABLE-NAME OPERATOR 


- 




SUB00700 


000033 


0046 


68 




DC 


AL2CLIN00005-SUBSET) OPERATOR 






SUB00710 


000035 


IE 


69 




DC 


ALKDEFNUMBR) NUMERIC CONSTANT OPERATOR 


K 




SUB00720 


000036 


2E 


70 




DC 


ALKDEFACTN) ACTION CODE OPERATOR 


$ 




SUB00730 


000037 


00 


71 




DC 


ALKACT100) ACTION CODE 






SUB00740 


000038 


06 


72 




DC 


ALKDEFOPTST) START OF OPTIONAL ITEMS 


( 




SUB00750 


000039 


23 


73 




DC 


ALKPAR00001-LIN00002) POINT TO END OF OPT. ITEMS 




SUB00760 


00003A 


26 


74 




DC 


ALKDEFQUOTE) LITERAL OPERATOR 


i 




SUB00770 


00003B 


01 


75 




DC 


ALK 001) LENGTH OF LITERAL 






SUB00780 


00003C 


6B 


76 




DC 


CV 






SUB00790 


00003D 


OA 


77 




DC 


ALKDEFCOMIT) LOCAL COMMIT 






SUB00800 
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LOC 


OBJECT CODE ADDR1 ADDR2 


STMT 


SOURCE 


STATEMENT 


F30SEP69 


3/03/70 


00003E 


34 


78 




DC 


ALKDEFTABLM) 


-TABLE-NAME OPERATOR 




SUB00810 


00003F 


0046 


79 




DC 


AL2(LIN00005- 


SUBSET) OPERATOR 




SUB00820 


000041 


IE 


80 




DC 


ALKDEFNUMBR) 


NUMERIC CONSTANT OPERATOR K 




SUB00830 


000042 


2E 


81 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR $ 




SUB00840 


000043 


00 


82 




DC 


ALKACT100) 


ACTION CODE 




SUB00850 


000044 


08 


83 


PAR00001 


DC 


ALKDEFOPTED) 


END OF OPTIONAL ITEMS ) 




SUB00860 


000045 


36 


84 




DC 


ALK DEFEND) 


END OF STATEMENT DEFINITION 




SUB00870 






85 


*********************************************************************** 


SUB00890 






86 


* 








* 


SUB00900 






87 


♦OPERATOR = 


" •+■ o •-• 


• ♦♦• o * ♦• '/* " 


* 


SUB00910 






88 


* 








* 


SUB00920 






89 


*********************************************************************** 


SUB00930 


000046 




90 


LIN00005 


EQU 


* 


START OF DEFINITION 




SUB00940 


000046 


40 


91 




DC 


ALKDEFTABLE) 


START OF TABLE ENTRIES " 




SUB00950 


000047 


001D 


92 




DC 


AL2 (TABOO 001- 


♦+1) LENGTH OF TABLE 




SUB00960 


000049 


01 


93 




DC 


ALK001) 


LENGTH OF LITERAL 




SUB00970 


00004A 


4E 


94 




DC 


C^ 1 






SUB00980 


00004B 


2E 


95 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR 




SUB00990 


00004C 


FF 


96 




DC 


X'FF» 


NULL ACTION CODE 




SUB01000 


00004D 


E3 


97 




DC 


c i T . 


TABLE FUNCTION PAD CHARACTER 




SUB01010 


00004E 


01 


98 




DC 


ALK 001) 


LENGTH OF LITERAL 




SUB01020 


00004F 


60 


99 




DC 


C'-' 






SUB01030 


000050 


2E 


100 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR 




SUB01040 


000051 


FF 


101 




DC 


X'FF' 


NULL ACTION CODE 




SUB01050 


000052 


E3 


102 




DC 


C"T» 


TABLE FUNCTION PAD CHARACTER 




SUB01060 


000053 


02 


103 




DC 


ALK002) 


LENGTH OF LITERAL 




SUB01070 


000054 


5C5C 


104 




DC 


Q* ** • 






SUB01080 


000056 


2E 


105 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR 




SUB01090 


000057 


FF 


106 




DC 


X'FF' 


NULL ACTION CODE 




SUB01100 


000058 


E3 


107 




DC 


c i T « 


TABLE FUNCTION PAD CHARACTER 




SUB01110 


000059 


01 


108 




DC 


ALK001) 


LENGTH OF LITERAL 




SUB01120 


00005A 


5C 


109 




DC 


c i*i 






SUB01130 


00005B 


2E 


110 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR 




SUB01140 


00005C 


FF 


111 




DC 


X'FF' 


NULL ACTION CODE 




SUB01150 


00005D 


E3 


112 




DC 


C'T 1 


TABLE FUNCTION PAD CHARACTER 




SUB01160 


O0005E 


01 


113 




DC 


ALK 001) 


LENGTH OF LITERAL 




SUB01170 


00005F 


61. 


114 




DC 


cv 






SUB01180 


000060 


2E 


115 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR 




SUB01190 


000061 


FF 


116 




DC 


X'FF* 


NULL ACTION CODE 




SUB01200 


000062 


E3 


117 




DC 


C 1 ^ 


TABLE FUNCTION PAD CHARACTER 




SUB01210 


000063 


02 


118 


TAB00001 


DC 


ALK 002) 


LENGTH OF LONGEST TABLE ARG 




SUB01220 


000064 


36 


119 




DC 


ALK DEFEND) 


END OF STATEMENT DEFINITION 




SUB01230 






120 


*********************************************************************** 


SUB01250 






121 


* 








* 


SUB01260 






122 


♦ASSIGNMENT 


= •=• : *7 


EXPRESSION 


* 


SUB01270 






123 


* 








* 


SUB01280 






124 


*********************************************************************** 


SUB01290 


000065 




125 


LIN00003 


EQU 


* 


START OF DEFINITION 




SUB01300 


000065 


26 


126 




DC 


ALKDEFQUOTE) 


LITERAL OPERATOR • 




SUB01310 


000066 


01 


127 




DC 


ALK001) 


LENGTH OF LITERAL 




SUB01320 


000067 


7E 


128 




DC 


C*=' 






SUB01330 


000068 


0C 


129 




DC 


ALKDEFSTCMT) 


STATEMENT COMMIT : 




SUB01340 


000069 


30 


130 




DC 


ALl(DEFMESSG) 


ERROR MESSAGE OPERATOR ♦ 




SUB01350 


00006A 


07 


131 




DC 


ALKCOD007) 


ERROR CODE 




SUB01360 


00006B 


12 


132 




DC 


ALKDEFSYMBL) 


NEST OPERATOR 




SUB01370 


00006C 


006F 


133 




DC 


AL21LIN00006- 


SUBSET) EXPRESSION 




SUB01380 


00006E 


36 


134 




DC 


ALK DEFEND) 


END OF STATEMENT DEFINITION 




SUB01390 






135 


*********************************************************************** 


SUB01410 






136 


* 








* 


SUB01420 






137 


♦EXPRESSION 


= ( < '+ 1 | 


•-• > ) 


* 


SUB01430 






138 


* 




OPERAND +55 


( +OPERATOR / OPERAND ... ) 


* 


SUB01440 






139 


* 








* 


SUB01450 






140 


**************** ******************************************************* 


SUB01460 


00006F 




141 


LIN00006 


EQU 


'* 


START OF DEFINITION 




SUB01470 


00006F 


06 


142 




DC 


ALKDEFOPTST) 


START OF OPTIONAL ITEMS ( 




SUB01480 


000070 


0E 


143 




DC 


ALK PARO 0002- 


LIN00006) POINT TO END OF OPT. ITEMS 




SUB01490 


000071 


00 


144 




DC 


ALKDEFLBRCE) 


START OF ALTERNATIVES < 




SUB01500 


000072 


08 


145 




DC 


ALKALT00005- 


LIN00006) FALSE DISP. 




SUB01510 


000073 


0D 


146 




DC 


ALKBRC00002- 


LIN00006) TRUE DISP. 




SUB01520 


000074 


26 


147 




DC 


ALKDEFQUOTE) 


LITERAL OPERATOR ' 




SUB01530 


000075 


01 


148 




DC 


ALK 001) 


LENGTH OF LITERAL 




SUB01540 


000076 


4E 


149 




DC 


C' + ' 






SUB01550 


000077 


04 


150 


ALT00005 


DC 


ALKDEFOR) 


ALTERNATE OPERATOR | 




SUB01560 


000078 


OD 


151 




DC 


ALK ALTO 000 6- 


LIN00006) FALSE DISP. 




SUB01570 


000079 


26 


152 




DC 


ALKDEFQUOTE) 


LITERAL OPERATOR • 




SUB01580 


00007A 


01 


153 




DC 


ALK001) 


LENGTH OF LITERAL 




SUBO1590 



120 



SUB 


SUBSET LANGUAGE DEFINITION 












PAGE 3 


LOC 


OBJECT CODE ADDRl ADDR2 


STMT 


SOURCE 


STATEMENT 


F30SEP69 


3/03/70 


00007B 


60 


154 




DC 


C'-» 




SUB01600 


00007C 




155 


ALT00006 


EQU 


* 




SUB01610 


00007C 


02 


156 


BRC00002 


DC 


ALKDEFRBRCE) END OF ALTERNATIVES 


> 


SUB01620 


00007D 


08 


157 


PAR00002 


DC 


ALKDEFOPTED) END OF OPTIONAL ITEMS 


) 


SUB01630 


00007E 


12 


158 




DC 


ALKDEFSYMBL) NEST OPERATOR 




SUB01640 


00007F 


008F 


159 




DC 


AL2(LIN00007-SUBSET) OPERAND 




SUB01650 


000081 


30 


160 




DC 


ALKDEFMESSG) ERROR MESSAGE OPERATOR 


* 


SUB01660 


000082 


37 


161 




DC 


ALKCOD055) ERROR CODE 




SUB01670 


000083 


06 


162 




DC 


ALKDEFOPTST) START OF OPTIONAL ITEMS 


( 


SUB01680 


000084 


IE 


163 




DC 


ALKPAR00003-LIN00006) POINT TO END OF OPT. ITEMS 


SUB01690 


000085 


32 


164 




DC 


ALKDEFTABLP) +TABLE-NAME OPERATOR 


+ 


SUB01700 


000086 


0046 


165 




DC 


AL2(LIN00005-SUBSET) OPERATOR 




SUB01710 


000088 


OA 


166 




DC 


AL1 < DEFCOMIT ) LOCAL COMMIT 


/ 


SUB01720 


000089 


12 


167 




DC 


ALKDEFSYMBL) NEST OPERATOR 




SUB01730 


00008A 


008F 


168 




DC 


AL2(LIN00007-SUBSET) OPERAND 




SUB01740 


00008C 


OE 


169 




DC 


ALKDEFITIND) INDEFINITE ITERATION 


... 


SUB01750 


00008D 


08 


170 


PAR00003 


DC 


ALKDEFOPTED) END OF OPTIONAL ITEMS 


) 


SUB01760 


00008E 


36 


171 




DC 


ALK DEFEND) END OF STATEMENT DEFINITION 




SUB01770 






172 


******************************************************************* 


SUB01790 






173 


* 






* 


SUB01800 






174 


♦OPERAND 


= 


< N | K | ' (' / *7 EXPRESSION +12 ')' 


> ♦ 


SUB01810 






175 


* 






* 


SUB01820 






176 


*********************************************************************** 


SUB01830 


00008F 




177 


LIN00007 


EQU 


♦ START OF DEFINITION 




SUB01840 


00008F 


00 


178 




DC 


ALl(DEFLBRCE) START OF ALTERNATIVES 


< 


SUB01850 


000090 


04 


179 




DC 


ALKALT00007-LIN00007) FALSE DISP. 




SUB01860 


000091 


17 


180 




DC 


ALKBRC00003-LIN00007) TRUE DISP. 




SUB01870 


000092 


16 


181 




DC 


ALKDEFNAME) NAME OPERATOR 


N 


SUB01880 


000093 


04 


182 


ALT00007 


DC 


ALl(DEFOR) ALTERNATE OPERATOR 


1 


SUB01890 


000094 


07 


183 




DC 


ALKALT00008-LIN00007) FALSE DISP. 




SUB01900 


000095 


IE 


184 




DC 


ALKDEFNUMBR) NUMERIC CONSTANT OPERATOR 


K 


SUB01910 


000096 


04 


185 


ALT00008 


DC 


ALKDEFOR) ALTERNATE OPERATOR 


1 


SUB01920 


000097 


17 


186 




DC 


ALKALT00009-LIN00007) FALSE DISP. 




SUB01930 


000098 


26 


187 




DC 


ALKDEFQUOTE) LITERAL OPERATOR 


« 


SUB01940 


000099 


01 


188 




DC 


ALK 001) LENGTH OF LITERAL 




SU301950 


00009A 


4D 


189 




DC 


C (' 




SUB01960 


00009B 


OA 


190 




DC 


AL1 (DEFCOMIT) LOCAL COMMIT 


/ 


SUB01970 


00009C 


30 


191 




DC 


ALKDEFMESSG) ERROR MESSAGE OPERATOR 


* 


SUB01980 


00009D 


07 


192 




DC 


ALKCOD007) ERROR CODE 




SUB01990 


00009E 


12 


193 




DC 


ALKDEFSYMBL) NEST OPERATOR 




SUB02000 


00009F 


006F 


194 




DC 


AL2CLIN00006-SUBSET) EXPRESSION 




SUB02010 


0000A1 


30 


195 




DC 


ALKDEFMESSG) ERROR MESSAGE OPERATOR 


* 


SUB02020 


0000A2 


oc 


196 




DC 


ALKCOD012) ERROR CODE 




SUB02030 


0000A3 


26 


197 




DC 


ALKDEFQUOTE) LITERAL OPERATOR 


i 


SUB02040 


OO0OA4 


01 


198 




DC 


ALK 001) LENGTH OF LITERAL 




SUB02050 


0000A5 


5D 


199 




DC 


CM ' 




SUB02060 


0000A6 




200 


ALT00009 


EQU 


* 




SUB02070 


0000A6 


02 


201 


BRC00003 


DC 


ALKDEFRBRCE) END OF ALTERNATIVES 


> 


SUB02080 


OO0OA7 


36 


202 




DC 


AL1 (DEFEND) END OF STATEMENT DEFINITION 




SUB02090 






203 


*********************************************************************** 


SUB02110 






204 


* 






* 


SUB02120 






205 


♦KEYWORD 


= 


" 'CONTINUE' •STOP' 'READ 1 INOUT 


* 


SUB02130 






206 


* 




.'WRITE' INOUT 'END' $3 00 " 


* 


SUB02140 






207 


* 






* 


SUB02150 






208 


*********************************************************************** 


SUB02160 


OO0OA8 




209 


LIN00004 


EQU 


♦ START OF DEFINITION 




SUB02170 


0000A8 


40 


210 




DC 


ALKDEFTABLE) START OF TABLE ENTRIES 


" 


SUB02180 


OO0OA9 


002F 


211 




DC 


AL2(TAB00002-++1) LENGTH OF TABLE 




SUB02190 


OOOOAB 


08 


212 




DC 


ALK 008) LENGTH OF LITERAL 




SUB02200 


0000AC 


C3D6D5E3C9D5E4C5 


213 




DC 


C CONTINUE' 




SUB02210 


O00OB4 


2E • 


214 




DC 


ALKDEFACTN) ACTION CODE OPERATOR 





SUB02220 


OO0OB5 


FF 


215 




DC 


X'FF' NULL ACTION CODE 




SUB02230 


0000B6 


E3 


216 




DC 


C'T' TABLE FUNCTION PAD CHARACTER 


SUB02240 


OO0OB7 


04 


217 




DC 


ALK 00 4) LENGTH OF LITERAL 




SUB02250 


0000B8 


E2E3D6D7 


218 




DC 


C'STOP' 




SUB02260 


OOOOBC 


2E 


219 




DC 


ALKDEFACTN) ACTION CODE OPERATOR 





SUB02270 


OOOOBD 


FF 


220 




DC 


X' FF' NULL ACTION CODE 




SUB02280 


OOOOBE 


E3 


221 




DC 


C'T' TABLE FUNCTION PAD CHARACTER 


SUB02290 


OOOOBF 


04 


222 




DC 


ALK004) LENGTH OF LITERAL 




SUB02300 


OOOOCO 


D9C5C1C4 


223 




DC 


C ' READ ' 




SUB02310 


OO0OC4 


12 


224 




DC 


ALKDEFSYMBL) NEST OPERATOR 




SUB02320 


0000C5 


00D9 


225 




DC 


AL2(LIN00008-SUBSET) INOUT 




SUB02330 


OO0OC7 


05 


226 




DC 


ALK005) LENGTH OF LITERAL 




SUB02340 


0000C8 


E6D9C9E3C5 


227 




DC 


C WRITE* 




SUB02350 


OOOOCD 


12 


228 




DC 


ALKDEFSYMBL) NEST OPERATOR 




SUB02360 


OOOOCE 


00D9 


229 




DC 


AL2(LIN00008-SUBSET) INOUT 




SUB02370 
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LOC 


OBJECT CODE ADDRl ADDR2 


STMT 


SOURCE 


STATEMENT 


F30SEP69 


3/03/70 


0000D0 


03 


230 




DC 


ALK003) 


LENGTH OF LITERAL 






SUB02380 


0000D1 


C5D5C4 


231 




DC 


C'END* 








SUB02390 


0000D4 


2E 


232 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR 


$ 




SUB02400 


0000D5 


16 


233 




DC 


ALKACT300) 


ACTION CODE 






SUB02410 


0000D6 


E3 


234 




DC 


C'T* 


TABLE FUNCTION PAD CHARACTER 




SUB02420 


0000D7 


08 


235 


TAB00002 


DC 


ALK008) 


LENGTH OF LONGEST TABLE ARG 






SUB02430 


0000D8 


36 


236 




DC 


ALK DEFEND) 


END OF STATEMENT DEFINITION 






SUB02440 






237 


*********************************************************************** 


SUB02460 






238 


* 










* 


SUB02470 






239 


♦INOUT = 


= ■ : 


*30 • (• : *27 


K $105 *12 •)• *58 IOLIST 




* 


SUB02480 






240 


* 










* 


SUB02490 






241 


*********************************************************************** 


SUB02500 


0000D9 




242 


LIN00008 


EQU 


* 


START OF DEFINITION 






SUB02510 


0000D9 


OC 


243 




DC 


AL1 (DEFSTCMT) 


STATEMENT COMMIT 






SUB02520 


0000DA 


30 


244 




DC 


ALKDEFMESSG) 


ERROR MESSAGE OPERATOR 


* 




SUB02530 


OOOODB 


IE 


245 




DC 


ALKCOD030) 


ERROR CODE 






SUB02540 


OOOODC 


26 


246 




DC 


ALK DEFQUOTE) 


LITERAL OPERATOR 


i 




SUB02550 


OOOODD 


01 


247 




DC 


ALK001) 


LENGTH OF LITERAL 






SUB02560 


OOOODE 


4D 


248 




DC 


C« ( • 








SUB02570 


OOOODF 


30 


249 




DC 


ALKDEFMESSG) 


ERROR MESSAGE OPERATOR 


* 




SUB02580 


OOOOEO 


IB 


250 




DC 


ALKCOD027) 


ERROR CODE 






SUB02590 


OOOOE1 


IE 


251 




DC 


ALK DEFNUMBR) 


NUMERIC CONSTANT OPERATOR 


K 




SUB02600 


0000E2 


2E 


252 




DC 


ALKDEFACTN) 


ACTION CODE OPERATOR 


$ 




SUB02610 


0000E3 


OA 


253 




DC 


ALKACT105) 


ACTION CODE 






SUB02620 


0000E4 


30 


254 




DC 


ALKDEFMESSG) 


ERROR MESSAGE OPERATOR 


* 




SUB02630 


0000E5 


OC 


255 




DC 


ALKCOD012) 


ERROR CODE 






SUB02640 


0000E6 


26 


256 




DC 


ALK DEFQUOTE) 


LITERAL OPERATOR 


t 




SUB02650 


0000E7 


01 


257 




DC 


ALK 001) 


LENGTH OF LITERAL 






SUB02660 


0000E8 


5D 


258 




DC 


C') 1 








SUB02670 


0000E9 


30 


259 




DC 


ALKDEFMESSG) 


ERROR MESSAGE OPERATOR 


* 




SUB02680 


OOOOEA 


3A 


260 




DC 


ALKCOD058) 


ERROR CODE 






SUB02690 


OOOOEB 


12 


261 




DC 


AL1 (DEFSYMBL) 


NEST OPERATOR 






SUB02700 


OOOOEC 


OOEF 


262 




DC 


AL2(LIN00009-SUBSET) IOLIST 






SUB02710 


OOOOEE 


36 


263 




DC 


AL1 (DEFEND) 


END OF STATEMENT DEFINITION 






SUB02720 






264 


*********************************************************************** 


SUB02740 






265 


* 










* 


SUB02750 






266 


♦IOLIST 


= N 


( \ • / N 


... ) 




* 


SUB02760 






267 


* 










* 


SUB02770 






268 


*********************************************************************** 


SUB02780 


OOOOEF 




269 


LIN00009 


EQU 


* 


START OF DEFINITION 






SUB02790 


OOOOEF 


16 


270 




DC 


ALK DEFNAME) 


NAME OPERATOR 


N 




SUB02800 


OOOOFO 


06 


271 




DC 


ALK DEFOPTST) 


START OF OPTIONAL ITEMS 


( 




SUB02810 


OOOOF1 


09 


272 




DC 


ALKPAR00004-LIN00009) POINT TO END OF OPT. ITEMS 




SUB02820 


0000F2 


26 


273 




DC 


ALK DEFQUOTE) 


LITERAL OPERATOR 


• 




SUB02830 


0000F3 


01 


274 




DC 


ALK 001) 


LENGTH OF LITERAL 






SUB02840 


0000F4 


6B 


275 




DC 


c\' 








SUB02850 


0000F5 


OA 


276 




DC 


ALl (DEFCOMIT) 


LOCAL COMMIT 


/ 




SUB02860 


0000F6 


16 


277 




DC 


ALK DEFNAME) 


NAME OPERATOR 


N 




SUB02870 


0000F7 


OE 


278 




DC 


AL1 (DEFITIND) 


INDEFINITE ITERATION 


• . . 




SUB02880 


0000F8 


08 


279 


PAR00004 


DC 


ALK DEFOPTED) 


END OF OPTIONAL ITEMS 


) 




SUB02890 


0000F9 


36 


280 




DC 


AL1 (DEFEND) 


END OF STATEMENT DEFINITION 






SUB02900' 






281 


*********************************************************************** 


SUB02920 






282 


* 










* 


SUB02930 






283 


♦SYNTAX END 








* 


SUB02940 






284 


* 










* 


SUB02950 






285 


*********************************************************************** 


SUB02960 


OOOOOO 




286 


DEFLBRCE 


EQU 


X' 00» 


< 






SUB02990 


000002 




287 


DEFRBRCE 


EQU 


X'02» 


> 






SUB03000 


000004 




288 


DEFOR 


EQU 


X , 04« 


1 






SUB03010 


000006 




289 


DEFOPTST 


EQU 


X'06» 


( 






SUB03020 


000008 




290 


DEFOPTED 


EQU 


x'os* 


) 






SUB03030 


OOOOOA 




291 


DEFCOMIT 


EQU 


X« OA 1 


/ 






SUB03040 


OOOOOC 




292 


DEFSTCMT 


EQU 


X^OC* 








SUB0305.0 


OOOOOE 




293 


DEFITIND 


EQU 


X» 0E» 








SUB03060 


000010 




294 


DEFITDEF 


EQU 


X'lO 1 


.N. 






SUB03070 


000012 




295 


DEFSYMBL 


EQU 


X«12» 


SYMBOL 






SUB03080 


000014 




296 


DEFMNAME 


EQU 


X'14* 


M 






SUB03090 


000016 




297 


DEFNAME 


EQU 


X 1 16 f 


N 






SUB03100 


000018 




298 


DEFLETTR 


EQU 


X'18 1 


L 






SUB03110 


00001A 




299 


DEFDIGIT 


EQU 


X» 1A 1 


D 






SUB03120 


00001C 




300 


DEFALMER 


EQU 


X'lC 


A 






SUB03130 


00001E 




301 


DEFNUMBR 


EQU 


X'lE* 


K 






SUB03140 


000020 




302 


DEFSTNUM 


EQU 


X'20' 


S 






SUB03150 


000022 




303 


DEFHOLLR 


EQU 


X«22« 


H 






SUB03160 


000024 




304 


DEFCSTRG 


EQU 


X'24« 


C 






SUB03170 


000026 




305 


DEFQUOTE 


EQU 


X 1 26' 


•AA. ..A» 






SUB0318q 
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LOC OBJECT 


CODE 


ADDR1 ADDR2 


STMT 


SOURCE 


STATEMENT 




F30SEP69 3/03/70 


000028 






306 


DEFNOTQT 


EQU 


X'28' 


A'AA.-.A* 


SUB03190 


00002A 






307 


DEFSCAN 


EQU 


X* 2A» 


6A 


SUB03200 


00002C 






308 


DEFSCNOT 


EQU 


X'2C 


SAA 


SUB03210 


00002E 






309 


DEFACTN 


EQU 


X^E* 


$N 


SUB03220 


000030 






310 


DEFMESSG 


EQU 


X' 30* 


*N 


SUB03230 


000032 






311 


DEFTABLP 


EQU 


X'32* 


+TABLE-NAME 


SUB03240 


000034 






312 


DEFTABLM 


EQU 


X % 34» 


-TABLE-NAME 


SUB03250 


000036 






313 


DEFEND 


EQU 


X'36* 


END OF STMNT 


SUB03260 


000040 






314 


DEFTABLE 


EQU 


X*40» 


w 


SUB03270 


000000 






315 


ACT100 


EQU 


000 




SUB03280 


000016 






316 


ACT300 


EQU 


022 




SUB03290 


00000A 






317 


ACT105 


EQU 


010 




SUB03300 


000003 






318 


COD003 


EQU 


003 




SUB03310 


000004 






319 


COD004 


EQU 


004 




SUB03320 


000007 






320 


COD007 


EQU 


007 




SUB03330 


OOOOOC 






321 


COD012 


EQU 


012 




SUB03340 


00001B 






322 


COD027 


EQU 


027 




SUB03350 


00001E 






323 


COD030 


EQU 


030 




SUB03360 


000037 






324 


COD055 


EQU 


055 




SUB03370 


00003A 






325 


COD058 


EQU 


058 




SUB03380 


000000 






326 




END 


SUBSET 




SUB03390 
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APPENDIX D: METALANGUAGE FOR IPDTEE AND IPDAGH 



METALA NGUAGE USED FOR IPDTEE SYNTAX DEFINITION TABLE 



TEE 3 37IP0TEE, FORTRAN IV LEVEL B DEFINITION 

SYNTAX IPDTEE 

IPDTEE *3 < »D0» DO | M ASSIGNMENT | +KEYWORD | N ASSIGNMENT > 

* 

THIS LINE DETERMINES THE OVERALL STRATEGY 
M SCANNING STATEMENTS. ERROR MESSAGE 
3 IS ISSUED IF THE STATEMENT IS NONE OF 
THE ALTERNATIVES, SINCE THIS IS THE FIRST 
LINE OF THE SYNTAX AND IS THEREFORE AUTOMATIC- 
ALLY COMMITTED. ERROR MESSAGE 3 IS 
"UNRECOGNIZABLE STMNT OR MISSPELLED KEYWORD". 



DO 



AS THIS LINE INDICATES, EACH 

STATEMENT IS FIRST EXAMINED TO SEE WHETHER 

IT IS A DO STATEMENT. IF IT IS NOT, 

IT IS EXAMINED TO SEE WHETHER IT IS AN 

ASSIGNMENT STATEMENT, THEN A KEYWORD 

STATEMENT, AND FINALLY, IF IT IS NONE 

OF THESE, ASSIGNMENT STATEMENT IS ATTEMPTED 

ONCE MORE USING A SLIGHTLY DIFFERENT 

SYNTAX WHICH ALLOWS THE ASSIGNMENT 

STATEMENT TO BEGIN WITH A NAME THAT 

IS LONGER THAN SIX CHARACTERS. 

IF THE N ASSIGNMENT FORM IS TRIED, THE N 

OPERATOR WILL ISSUE A "NAME TOO LONG" MESSAGE 

FOR INITIAL NAMES OF MORE THAN 'SIX CHARACTERS 

EVEN THOUGH ASSIGNMENT MAY NEVER BECOME COMMITTED. 



D .4. 
*33 ) 
*53 •,• 

USNZINT > 



N *143 



) 



N 



( "O 1 ... ) D ( D .4. ) 

( «,• : *140 $801 ■-" 

< N | USNZINT : 

( ■ ,• < N I / 

* 
* 

* 

USNZINT = *4 -.• + • -.•-• K $100 
$ 

* DEFINES UNSIGNED, NONZERO INTEGER. ACTION CODE 

* 100 AFTER THE K OPERATOR CHECKS TO SEE THAT 

* THE NUMERIC CONSTANT FOUND BY THE K OPERATOR 

* WAS A NON-ZERO INTEGER. 

ASSIGNMENT = < •=• : | • (• & 

$200 I SUB ( •,• SUB . 
*7 EXP 



$ 5 
USNZINT > 



DEFINES THE SYNTAX OF A DO STATEMENT. 

THE N-OPERATOR IS USED HERE INSTEAD OF 

THE M-OPERATOR EVEN THOUGH N WILL REQUIRE 

AT LEAST ONE VALID NAME BEFORE THE STATEMENT IS 

COMMITTED TO BEING A DO STATEMENT. THIS 

IS PERMISSIBLE BECAUSE THE INITIAL DIGITS REQUIRED 

BY THIS DEFINITION RULE OUT THE POSSIBILITY THAT 

A KEYWORD STATEMENT WILL SATISFY THIS DEFINITION. 

EACH PARAMETER OF THE DO IS A NAME OR AN 

UNSIGNED, NON-ZERO INTEGER. 

THIS DEFINITION WILL ALMOST ALWAYS FAIL 
AT THE INITIAL DIGITS, FOR STATEMENTS THAT 
ARE NOT DO STATEMENTS. HOWEVER, UNTIL 
THE FIRST COMMA IN THE PARAMETER LIST IS 
FOUND, IT COULD BE AN ASSIGNMENT STATEMENT 
SUCH AS "D03I=N**2". THEREFORE 
THE STATEMENT CANNOT BE COMMITTED TO BEING 
A DO STATEMENT UNTIL THE COMMA IS 
ENCOUNTERED. 

SHOULD THERE BE A COMMA AFTER THE STATEMENT NUMBER, 
ACTION CODE 801 CAUSES MESSAGE 140 TO BE ISSUED, 
AND THE STATEMENT IS COMMITTED TO THIS LINE. 

= *4 



N ( 
• ) = • 



N 



$202 



> > 



124 



DEFINES TWO CLASSES OF STATEMENTS 



A. ARITHMETIC ASSIGNMENT STATEMENTS 

B. ARITHMETIC STATEMENT FUNCTION DEFINITIONS 

A VALID SYMBOLIC NAME HAS BEEN FOUND BEFORE 
THIS LINE IS INVOKED, SO THE SYNTAX OF THE 
PART OF THE ASSIGNMENT BEFORE THE EQUALS 
SIGN IS ONE OF: 

1. A NAME 

2. A NAME FOLLOWED BY A PARENTHESIZED LIST OF NAMES 

3. A NAME FOLLOWED BY A PARENTHESIZED LIST OF 
EXPRESSIONS, AT LEAST ONE OF WHICH IS NOT 



2048 

IPDE0010 

IPDE0030 

IPDE0040 

IPDE0050 

IPDE0060 

IPDE0070 

IPDE0080 

IPDE0090 

IPDE0100 

IPDE0110 

IPDE0120 

IPDE0130 

IPDE0140 

IPDE0150 

IPDE0160 

IPDE0170 

IPDE0180 

IPDE0190 

IPDE0200 

IPDE0210 

IPDE0220 

IPDE0230 

IPDE0240 

IPDE0250 

IPDE0260 

IPDE0270 

IPDE0280 

IPDE0285 

IPDE0290 

IPDE0295 

IPDE0300 

IPDE0310 

IPDE0320 

IPDE0330 

IPDE0340 

IPDE0350 

IPDE0360 

IPDE0370 

IPDE0380 

IPDE0390 

IPDE0400 

IPDE0410 

IPDE0420 

IPDE0430 

IPDE0440 

IPDE0450 

IPDE0460 

IPDE0470 

IPDE0480 

IPDE0490 

IPDE0500 

IPDE0510 

IPDE0512 

IPDE0514 

IPDE0516 

IPDE0518 

IPDE0520 

IPDE0530 

IPDE0540 

IPDE0550 

IPDE0560 

IPDE0570 

IPDE0580 

IPDE0590 

IPDE0600 

IPDE0610 

IPDE062O 

IPDE0630 

IPDE0640 

IPDE0650 

IPDE0660 

IPDE0670 

IPDE0680 

IPDE0690 

IPDE0700 

IPDE0710 

IPDE0720 

IPDE0730 

IPDE0740 

IPDE0750 

IPDE0760 

IPDE0770 

IPDE0780 

IPDE0790 

IPDE0800 



* 
* 

* 
*. 

* 
* 

SUB 

* 
EXP 



SIMPLY A NAME 

IN CASES 1 AMD 3, THE STATEMENT IS IN 

CLASS A t SINCE CLASS B STATEMENTS MUST 

HAVE AT LEAST ONE NAME IN PARENTHESES 

BEFORE THE EQUALS SIGN, AND NO EXPRESSION 

EXCEPT A NAME IS PERMITTED IN THE PARENTHESES 

IN CLASS B STATEMENTS. THEREFORE, IN 

CASE 3, ACTION CODE 202 IS USED TO CHECK 

FOR MORE THAN THREE SUBSCRIPTS. ACTION 

CODE 202 ISSUES A "TOO MANY SUBSCRIPTS PRECEDE" 

MESSAGE IF THERE WERE MORE THAN THREE 

SUBSCRIPT EXPRESSIONS. 

IN CASE 2, THE STATEMENT COULD BE IN 

EITHER CLASS A OR CLASS B, AND SO, IF 

MORE THAN THREE NAMES ARE PRESENT, 

A "POSSIBLY TOO MANY SUBSCRIPTS PRECEDE" MESSAGE 

IS ISSUED BY ACTION CODE 200. 

IF THE STATEMENT IS NOT CASE 1, IT 

IS SCANNED TO SEE WHETHER IT CONTAINS 

AN EQUALS SIGN SOMEWHERE TO THE RIGHT 

OF THE INITIAL NAME. ASSIGNMENT 

FAILS IF AN EQUAL SIGN IS NOT FOUND. 

UNLESS A HOLLERITH FIELD CONTAINS THE 

EQUAL SIGN THAT SATISFIES THE SCANNING 

OPERATION, THIS TEST AVOIDS ANALYSIS 

OF A PARENTHESIZED FORM ( IN SUCH 

STATEMENTS AS FORMAT AND READ ) BY THE 

ASSIGNMENT SYNTACTIC LINE, WHEN THERE IS 

NO POSSIBITITY THAT THE STATEMENT IS AN ASSIGNMENT. 

WHEN AN EQUALS SIGN IS FOUND IN THE 

PROPER PLACE, THE STATEMENT IS COMMITTED. 

THE SYNTAX TO THE RIGHT OF THE EQUALS 
IS THE SAME FOR CLASSES A AND B, EVEN 
THOUGH CLASS B DOES NOT ALLOW REFERENCES 
TO SUBSCRIPTED VARIABLES IN THE EXPRESSION. 
THIS IS BECAUSE THE SYNTAX CHECKER DOES NOT 
HAVE THE INFORMATION THAT WOULD ENABLE IT TO 
DETERMINE THAT A NAME FOLLOWED BY A 
PARENTHESIZED LIST OF EXPRESSIONS 
WAS AN ARRAY ELEMENT REFERENCE AND 
NOT A FUNCTION REFERENCE. THE 
SYNTAX CHECKER WOULD HAVE TO SAVE 
INFORMATION FROM DIMENSION AND OTHER 
ARRAY-DECLARING STATEMENTS TO MAKE 
THE DISTINCTION, AND THE SYNTAX CHECKER 
DOES NOT SAVE SUCH INFORMATION. 



*67 < 

USNZINT 



USNZINT »*■ 
I USNZINT 



) N 



( 



DEFINES SUBSCRIPT EXPRESSION. THIS FORM IS 
USED FOR THE EXPRESSIONS WHEREVER IT IS 
CERTAIN THAT A NAME FOLLOWED BY A PARENTHESIZED 
LIST OF EXPRESSIONS IS AN ARRAY ELEMENT REFERENCE 
AND NOT A FUNCTION REFERENCE, AS IN 
INPUT/OUTPUT LISTS. 



( < • + • 

OPERAND 



) 



) OPERAND *55 ( +ARITHOP 



DEFINES ARITHMETIC EXPRESSION. 



ti 



■ + ' 



■i**i 



ARITHOP = 
$ 

* TABLE OF THE ARITHMETIC OPERATORS. THE 

* DOUBLE ASTERISK MUST PRECEDE THE SINGLE 

* ASTERISK SO THAT A SPURIOUS MATCH ON 

* "SINGLE ASTERISK" WILL NOT OCCUR WHEN THE 

* SOURCE STATEMENT CONTAINS A DOUBLE 

* ASTERISK. 

OPERAND < K | N ( • (• / 

... ) $200 *12 •)» ) I •(• 

* DEFINES ARITHMETIC OPERANDS FOR USE IN 

* ARITHMETIC EXPRESSIONS. 

BACKSPACE 

CONTINUE 

DOUBLE 

EQUIVALENCE 

FORMAT 



KEYWORD - 



•BACK* 
•CONT' 
•DOUB« 
•EQUI 1 
•FORM 1 



•CALL' 
■DEFI 1 
• ENDF» 
•EXTE' 
•FUNC 1 



*7 
/ *7 



CALL 

DEFINEFILE 
ENDFILE 
EXTERNAL 
FUNCTION 



EXP 
EXP 



♦ 12 



/ 
• ) 



EXP 
> 



•COMM 1 COMMON * 

•DIME 1 DIMENSION * 

•END" END * 

•FIND' FIND * 

•GOTO' GOTO * 



IPDE0810 
IPDE0820 
IPDE0830 
IPDE0840 
IPDE0850 
IPDE0860 
IPDE0870 
IPDE0880 
IPDE0890 
IPDE0900 
IPDE0910 
IPDE0920 
IPDE0930 
IPDE0940 
IPDE0950 
IPDE0960 
IPDE0970 
IPDE0980 
IPDE0990 
IPDE1000 
I PD El 010 
IPDE1020 
IPDE1030 
IPDE1040 
IPDE1050 
IPDE1060 
IPDE1070 
IPDE1080 
IPDE1090 
IPDE1100 
IPDE1110 
IPDE1120 
IPDE1130 
IPDE1140 
IPDE1150 
IPDE1160 
IPDE1170 
IPDE1180 
IPDE1190 
IPDE1200 
IPDE1210 
IPDE1220 
IPDE1230 
IPDE1240 
IPDE1250 
IPDE1260 
IPDE1270 
IPDE1280 
IPDE1290 
IPDE1300 
IPDE1310 
IPDE1320 
IPDE1330 
IPDE1340 
IPDE1350 
IPDE1360 
IPDE1370 
IPDE1380 
IPDE1390 
IPDE1400 
IPDE1410 
IPDE1420 
IPDE1430 
IPDE1440 
IPDE1450 
IPDE1460 
IPDE1470 
IPDE1480 
IPDE1490 
IPDE1500 
IPDE1510 
IPDE1520 
IPDE1530 
IPDE1540 
IPDE1550 
IPDE1560 
IPDE1570 
IPDE1580 
IPDE1590 
IPDE1600 
IPDE1610 
IPDE1620 
IPDE1630 
IPDE1640 
IPDE1650 
IPDE1660 
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•IF' IF 


UNITE 1 


FNTEGER 


•PAUS 1 


PAUSE 


•READ 1 READ 


•REAL* 


REAL 


•RETU' 


RETURN 


»REWI» REWIND 


1 SUBR« 


SUBROUTINE 


•STOP' 


STOP 


•WRIT' WRITE 


it 









TABLE OF ALL THE KEYWORDS THAT MAY APPEAR 

AT THE BEGINNING OF A STATEMENT. FOR EACH OF THE ENTRIES 

A MATCH WITH THE LITERAL RESULTS IN A 

TRANSFER TO THE APPROPRIATE SYNTACTIC LINE, 



•SPACE' 



DSREFNO 



* 

BACKSPACE = 

* DEFINES THE BACKSPACE STATEMENT. 

* 

DSREFNO = *27 < N I K / $105 > 

DEFINES DATA SET REFERENCE NUMBER. 
ACTION CODE 105, ISSUES AN APPROPRIATE 
MESSAGE IF THE K ALTERNATIVE ENCOUNTERS 
ANY NUMERIC CONSTANT OTHER THAN A NON-ZERO 

TO 99. 



* 
* 

CALL 



INTEGER LESS THAN OR EQUAL 



*33 
EXP 



N 



( 



) 



( 



/ 
*13 



*46 
•) ' 



EXP 

) 



DEFINES THE CALL STATEMENT, 



'ON 1 
( 



: *33 N ( 
DECLARATOR 



DECLARATOR 
) ... ) 



/ N 



DEFINES THE COMMON STATEMENT.- 



COMMON 

DECLARATOR = *37 •(• / USNZINT ( %• / $201 USNZINT 

* DEFINES ARRAY DECLARATORS WITH CONSTANT 

* DECLARATORS. 

CONTINUE = •INUE* : 

DEFINES THE CONTINUE STATEMENT 



) *12 •) 



DEFINEFILE = 



* 



•NEFILE' : *27 K 
*53 •,• USNZINT •, 
*53 •» • *33 N *13 
•(•• USNZINT *53 « 
< 'L 1 I 'E 1 I 'U 1 > 



'( 



$105 *31 
• *63 < «L' I 
■)■ ( " ,' / 
USNZINT 



*53 



USNZINT 
■E» I 'U 1 > 
*27 K $105 
1 *63 
*33 N *13 • ) • « 



*31 



DEFINES THE DEFINE FILE STATEMENT. IN 

THIS STATEMENT, THE DATA SET REFERENCE 

NUMBER CANNOT BE A SYMBOLIC NAME, SO 

THE K OPERATOR FOLLOWED BY ACTION CODE 105 

IS USED WHERE DATA SET REFERENCE NUMBERS ARE 

REQUIRED. THE FORM OF THE BASIC ELEMENT 

OF THIS STATEMENT IS GIVEN ON THE FIRST 

TWO AND-A-HALF LINES. THE LAST TWO 

AND-A-HALF LINES DESCRIBE THE OPTIONAL 

REPETITION OF THIS ELEMENT FOLLOWING A COMMA. 



DIMENSION = •NSION 1 
) 



*33 N DECLARATOR ( • , ■ 



N DECLARATOR 



DEFINES THE DIMENSION STATEMENT. SINCE 

THE LINE IS COMMITTED AFTER THE LITERAL IS 

MATCHED, THE "ARRAY DIMENSIONS EXPECTED" MESSAGE 

ON THE DECLARATOR LINE WILL BE ISSUED IF 

A DECLARATOR IS MISSING. THE "NAME EXPECTED" 

MESSAGE ON THIS LINE THEREFORE APPLIES TO THE 

ENTIRE LINE. 



•LEPRECISION' 



DOUBLE = 

TYPE 
.* 

ENDFTLE = MLE» 

•* DEFINES THE ENDFILE STATEMENT. 



•FUNC 1 FUNCTION I TYPE > 



BEGINNING 



TABLE OF TRANSFERS FOR STATEMENTS 
WITH 'DOUBLE PRECISION'. 

: *33 N ( DECLARATOR ) ( 
( DECLARATOR ) ... ) 

DEFINES ALL THE TYPE-STATEMENTS. THIS 
DEFINITION IS USED AFTER THE KEYWORD AT 
THE BEGINNING OF THE TYPE-STATEMENT HAS 
BEEN MATCHED IN THE APPROPRIATE TABLE. 

DSREFNO 



* 

* 
* 

* 
* 

* 



IPDE1670 
IPDE1680 
IPDE1690 
IPDE1700 
IPDE1710 
IPDE1720 
IPDE1730 
IPDE1740 
IPDE1750 
IPDE1860 
IPDE1870 
IPDE1880 
IPDE1890 
IPDE1900 
IPDE1910 
IPDE1920 
IPDE1930 
IPDE1940 
IPDE1950 
IPDE1960 
IPDE1970 
IPDE1980 
IPDE1990 
IPDE2000 
IPDE2010 
IPDE2020 
IPDE2030 
IPDE2040 
IPDE2050 
IPDE2060 
IPDE2070 
IPDE2080 
IPDE2090 
IPDE2100 
IPDE2110 
IPDE2120 
IPDE2130 
IPDE2140 
IPDE2150 
IPDE2160 
IPDE2170 
IPDE2180 
IPDE2190 
IPDE2200 
IPDE2210 
IPDE2220 
IPDE2230 
IPDE2240 
IPDE2250 
IPDE2260 
IPDE2270 
IPDE2280 
IPDE2290 
IPDE2300 
IPDE2310 
IPDE2320 
IPDE2330 
IPDE2340 
IPDE2350 
IPDE2360 
IPDE2370 
IPDE2380 
IPDE2390 
IPDE2400 
IPDE2410 
IPDE2420 
IPDE2430 
IPDE2440 
IPDE2450 
IPDE2460 
IPDE2470 
IPDE2480 
IPDE2490 
IPDE2500 
IPDE2510 
IPDE2520 
IPDE2530 
IPDE2540 
IPDE2550 
IPDE2560 
IPDE2570 
IPDE2580 
IPDE2590 
IPDE2600 
IPDE2610 
IPDE2612 
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END 

* 

* 
* 

EQUI 



* 
* 
* 
* 
* 
EXTE 

* 

FIND 
* 

* 

FORM 



$800 



$300 



DEFINES THE END LINE. ACTION CODE 800 PRODUCES AN 
IF THERE ARE ANY CHARACTERS OTHER THAN BLANKS AFTER 
CHARACTERS 'END 1 WHICH CAUSED NESTING TO THIS LINE. 
IF THERE WERE NO NON-BLANK CHARACTERS AFTER 'ENDS 
CODE 800 PRODUCES A T, CAUSING ACTION CODE 300 TO D 
DIAGNOSE ANY STATEMENT LABEL OR CONTINUATION FIELD 

VALENCE = 'VALENCE' : *30 •(• *33 N ( DECLARAT 
*53 ',' *33 N ( DECLARATOR ) ( »,• 
( DECLARATOR ) ... ) *12 •)• ( •»■ / *30 • 
( DECLARATOR ) *53 ' ,• *33 N ( DECLARATO 
/ N ( DECLARATOR ) ... ) *13 ■ )• 

DEFINES THE EQUIVALENCE STATEMENT. 
AS IN THE DEFINEFILE DEFINITION, THE FIRST 
TWO AND-A-HALF LINES OF THIS DEFINITION 
DESCRIBE THE BASIC FORM. 



RNAL = »RNAL» : *33 N ( », 
DEFINES THE EXTERNAL STATEMENT. 
= : *30 •( • DSREFNO *61 



N 



*7 INTEGEXP 



DEFINES THE FIND STATEMENT. THE FOUR 
QUOTATION MARKS REPRESENT A LITERAL CONSISTING 
OF ONE QUOTE IN THE SOURCE. 

PTM2770 FIX (RELEASE 19) CHANGED EXP TO INTEG 
THAT REAL CONSTANTS WILL BE FOUND IN ERROR. ****** 



AT = «AT« 
( < 



* 
* 

* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 

GROUF 



* 
* 
* 
* 
* 
* 
* 
* 
* 



$301 *30 
• / GROUP 
) ( »/• 



*77 ( •/■ 
'/• ( V 1 « 
) ) •) 



) G 



DEFINES THE FORMAT STATEMEN 
THE DEFINITION IS A PARENTH 
GROUPS. (GROUP IS DEFINED 
EACH DELIMITER IN THE LIST 
OR ANY NUMBER OF SLASHES. 
MAY BE ANY NUMBER OF SLASHE 
FIRST GROUP IN THE LIST, OR 
GROUP IN THE LIST, OR BOTH. 
NEED NOT BE ANY GROUPS AT A 
LAST SET OF OPTIONAL SLASHE 
THE OPTIONAL PARENTHESES FO 
OF GROUPS BECAUSE, IF THERE 
GROUPS, THE FIRST SET OF OP 
WILL HAVE MATCHED ALL THE V 
WITHIN THE SOURCE'S PARENTH 
MESSAGE ISSUED WHEN A RIGHT 
NOT FOUND IS "DELIMITER MIS 
FORMAT CODE" SINCE ANY FAIL 
THE RIGHT PARENTHESIS LITER 
DUE TO ONE OF THESE CAUSES. 



T. ESSE 
ESIZED L 
ON ANOTH 
IS EITHE 
OPTIONAL 
S BEFORE 

AFTER T 

THERE 

LL. THE 

S IS INC 

R THE LI 

ARE NO 
TIONAL S 
ALID CHA 
ESES. T 

PARENTH 
SING OR 
URE TO M 
AL IS PR 



NTIALLY, 
1ST OF 
ER LINE) 
R A COMMA 
LY, THERE 

THE 
HE LAST 



LUDED 
ST 



IN 



LASHES 

RACTERS 

HE 

ESIS IS 

INVALID 

ATCH 

OBABLY 



< FIELDESCR I ( 
( $700 ) ■ ( ■ / 
( FIELDESCR ( < 

< •/■ I ( $700 
FIELDESCR > ... 



$700 )'('/(< ■/ 
*69 $801 > ... ) 
»,« / FIELDESCR | ■/' 
) •(' / *69 $801 > 
) ( ■/" ... ) ) •) • 



DEFINES GROUP FOR USE IN THE FORMAT DEFINITION. 

A GROUP IS EITHER A FIELD DESCRIPTOR OR 

ANOTHER FORM THAT IS ESSENTIALLY THE SAME AS A 

FORMAT. THE DIFFERENCES BETWEEN FORMAT AND 

THE SECOND FORM ARE 1) THE SECOND FORM OF 

GROUP MAY HAVE A REPEAT COUNT BEFORE THE 

INITIAL LEFT PARENTHESIS, AND 2) THE ITEMS 

IN THE PARENTHESIZED LIST ARE EACH FIELDESCR 

INSTEAD OF GROUP. THE SECOND DIFFERENCE 

IS NECESSARY TO AVOID ALLOWING AN INDEFINITE NUMBER 

OF LEVELS OF NESTING OF PARENTHESES IN FORMAT 

STATEMENTS. FORTRAN ALLOWS ONLY ONE LEVEL 

OF NESTING INSIDE THE PARENTHESES WHICH ENCLOSE 

THE ENTIRE FORMAT SPECIFICATION. 

ACTION CODE 700 ADVANCES THE SOURCE POINTER PAST 
THE GROUP REPEAT COUNT WHEN ONE IS PRESENT, 

ACTION CODE 801 IS USED TO ISSUE A MESSAGE 
DIAGNOSING TOO MANY LEVELS OF PARENTHESES IF ANY 
LEFT PARENTHESIS IS FOUND WITHIN THE PARENTHESES 







[PDE2614 




* 


[PDE2616 


F 


* 


[PDE2618 


THE 


* 


[PDE2620 




* 


[PDE2622 


ACTION 


* 


[PDE2624 


ETECT AND 


* 


[PDE2626 


ERRORS. 


* 


[PDE2628 




* " 


PDE2629 


OR ) 


* 


[PDE2630 


/ N 


* 


[PDE2640 


(• *33 N 


* 


[PDE2650 


R ) ( ', ■ 


*i 


[PDE2660 


. ) 




[PDE2670 




* 


[PDE2680 




* i 


[PDE2690 




* ' 


PDE2700 




* 


[PDE2710 




* 1 


[PDE2720 




* 


[PDE2730 
[PDE2740 




* 


[PDE.2750 




* 


[PDE2760 




* : 


[PDE2770 


*13 ■)■ 




[PDTEE 




* 


[PDE2790 




* 


[PDE2800 




* 


[PDE2810 




* 


[PDE2820 




* 


[PDTEE 


EXP SO ******* 


[PDTEE 


;[c 5jc ^< ;[; ^ ^t ^< ^s ^c >Jc sj< >J« 55? ijt 


[PDTEE 




* i 


[PDTEE 




* 


[PDE2830 


( GROUP 


* 


[PDE2840 


ROUP > 


* 


[PDE2850 
[PDE2860 




* 


[PDE2870 




* 


[PDE2880 




* 


[PDE2890 




* 


[PDE2900 




* i 


[PDE2910 




* i 


[PDE2920 




* 


[PDE2930 




* 


[PDE2940 




'f 


[PDE2950 




* 


[PDE2960 




* 


[PDE2970 




* 


[PDE2980 




* i 


[PDE2990 




* i 


[PDE3000 




* 


[PDE3010 




* 


[PDE3020 




* 


[PDE3030 




* 1 


[PDE3040 




* 


[PDE3050 




* 


[PDE3060 




* 


[PDE3070 




* 


[PDE3080 


• I 


* 


[PDE3280 




*• 


[PDE3285 


( 


* 


[PDE3290 


... ) 


* 


[PDE3295 


> 




[PDE3300 




* 


[PDE3310 




* 


[PDE3311 




* i 


[PDE3312 




* i 


[PDE3313 




* 


[PDE3314 




* 


[PDE3315 




* 


[PDE3316 




* 


[PDE3317 




* 


[PDE3318 






[PDE3319 




* 


[PDE3320 




jfj 


[PDE3321 




* 


[PDE3322 




* 


[PDE3323 




* ' 


[PDE3324 




* 1 


[PDE3325 




* 


[PDE3330 




* 


[PDE3340 




* 


[PDE3350 




* ] 


[PDE3360 




* 1 


[PDE3370 




* 1 


[PDE3380 
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* 

FIELDESCP = 



WHICH ENCLOSE THE REST OF THE SECOND ALTERNATIVE. 
$700 «X« | ( $700 ) 
> 



C 
< 
< 
( 



) 



DEFINES ALL THE FIELD DESCRIPTORS WHICH MAY 
APPEAR IN A FORMAT STATEMENT. 



DEFINES FUNCTION STATEMENTS, INCLUDING 
THOSE WHICH BEGIN WITH ONE OF THE 
TYPE DECLARATORS REAL, INTEGER, OR DOUBLE 
DECISION. IF ONE OF THESE TYPE 

DECLARATORS PRECEDES 'FUNCTION' , IT HAS 
BEEN MATCHED IN THE APPROPRIATE TABLE* 
THEREFORE, THIS LINE DOES NOT NEED TO MATCH 
ANY OF THE TYPE KEYWORDS. 



* 

* 

* 

* 

FUNCTION = 

* 

* 

* 

* 
* 
* 

DUMMYARGS = 

* 

* 

* 
GOTO 

* 
* 
* 

* 
* 

IF 



■X 1 

•F' 
•A' 
< $700 
F' I 



( $700 
•D' > / 
/ $700 > 
I '0' ( '0' ... 

•D" > / $700 



$700 

I H 
. ) > 

*80 



*80 '.' $701 
I «T« / $700 
P« ( $700 ) 
••• $701 > 



•TION 1 



*32 



N 



DUMMYARGS 



*35 



( 



N 



( 



N 



*13 •)• 



DEFINES THE LIST OF DUMMY ARGUMENTS, 
INCLUDING THE PARENTHESES WHICH ENCLOSE 
THE LIST, IN A FUNCTION STATEMENT. 



< ■ <■ 

*52 ■ 



*43 
*33 



N 



/ 

*43 



... 
> 



) *13 ')• 



DEFINES THE TWO KINDS OF GOTO STATEMENT. 

THESE ARE DEFINED IN THE ORDER: 

COMPUTED GOTO, UNCONDITIONAL GOTO. 

THIS ORDERING ALLOWS A COMMIT 

TO PRECEDE THE S OPERATOR IN THE DEFINITION OF 

THE UNCONDITIONAL GOTO. 



*31 
*43 S 



M ■• 
*53 



EXP *13 

*43 S 



• )• 



*43 



*53 



5jC 

INTEGER 
* 



DEFINITION OF THE ARITHMETIC IF STATEMENT. 
•GER» < «FUNC» FUNCTION | TYPE 



* 
* 

PAUSE 

* 

* 

READ 

* 

* 

* 

IOLIST = 



TABLE OF TRANSFERS FOR STATEMENTS BEGINNING WITH 
•INTEGER 1 * 



•E« : ( D .5. ) 
DEFINES THE PAUSE STATEMENT. 



*129 $800 



( 



*30 
• • • 



•( 



DSREFNO ( 

=42 S ) *13 



•) 



( 



/ *7 
IOLIST 



INTEGEXP 
) 



DEFINES THE FORM OF EITHER READ 

OR WRITE AFTER THE KEYWORD. THIS DEFINITION 

ENCOMPASSES SEQUENTIAL OR DIRECT ACCESS, 

FORMATTED OR UNFORMATTED, READ AND WRITE 

STATEMENTS. 

THE IOLIST IS OPTIONAL IN ALL FORMS. 



PTM2770 FIX (RELEASE 19) CHANGED 
THAT REAL CONSTANTS WILL BE FOUND IN 



PARENLIST = 



*58 

< 



< IOVAR 

IOVAR | 



PARENLIST 
PARENLIST 



EXP 
ERROR. 

> 
> 



TO INTEGEXP SO ******* 

* 



( 



DEFINES AN INPUT/OUTPUT LIST. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



• (' / *58 < IOVAR 
/ *32 < IOVAR ( 
USNZINT > *52 » ,' < 
N | / USNZINT 

PARENLIST > 



I 



PARENLIST 

•=* / $602 < 

N I / USNZINT 

> ) $603 ) 

) *12 •)• 



BE 



N I / 



DEFINES THE PARENTHESIZED LIST THAT MAY 
A MEMBER OF AN INPUT/OUTPUT LIST. THIS 
COMPLICATED LOOKING DEFINITION IS BASICALLY 
JUST: 



PARENLIST 



• ( 
( 



IOVAR | 
< IOVAR 



PARENLIST : 
I PARENLIST 



) • )• 



HOWEVER, THERE IS A LENGTHY OPTION AFTER 
THE SECOND OCCURRENCE OF IOVAR. THE OPTION 



IPDE3390 

IPDE3400 

IPDE3410 

IPDE3420 

IPDE3430 

IP0E3440 

IPDE3450 

IPDE3460 

IPDE3470 

IPDE3480 

IPDE3490 

IPDE3500 

IPDE3510 

IPDE3520 

IPDE3530 

IPDE3540 

IPDE3550 

IPDE3560 

IPDE3570 

IPDE3580 

IPDE3590 

IPDE3600 

IPDE3610 

IPDE3620 

IPDE3630 

IPDE3640 

IPDE3650 

IPDE3660 

IPDE3670 

IPDE3680 

IPDE3690 

IPDE3700 

IPDE3710 

IPDE3720 

IPDE3730 

IPDE3740 

IPDE3750 

IPDE3760 

IPDE3770 

IPDE3780 

IPDE3790 

IPDE3800 

IPDE3810 

IPDE3820 

IPDE3830 

IPDE3840 

IPDE3850 

IPDE3860 

IPDE3870 

IPDE3880 

IPDE3890 

IPDE3950 

IPDTEE 

IPDE3970 

IPDE3980 

IPDE3990 

IPDE4000 

IPDE4010 

IPDE4020 

IPDE4030 

IPDE4040 

IPDTEE 

IPDTEE 

IPDTEE 

IPDE4050 

IPDE4060 

IPDE4070 

IPDE4080 

IPDE4090 

IPDE4100 

IPDE4110 

IPDE4120 

IPDE4130 

IPDE4140 

IPDE4150 

IPDE4160 

IPDE4170 

IPDE4180 

IPDE4190 

IPDE4200 

IPDE4210 

IPDE4220 

IPDE4230 

IPDE4240 

IPDE4250 

IPDE4260 
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* 
* 
* 

'I- 

* 
* 

IOVAR 



DESCRIBES THE SYNTAX FOUND WHEN THE SOURCE 
CONTAINS AN IMPLIED DO. THIS OPTION 
BEGINS WITH THE LEFT PARENTHESIS ON THE SECOND 
LINE AND ENDS WITH THE LAST RIGHT 
PARENTHESIS ON THE FOURTH LINE. 

THE FIRST OCCURRENCE OF IOVAR DOES NOT 

HAVE THE OPTION, BECAUSE AN IMPLIED 

DO SPECIFICATION MAY NOT BE THE FIRST 

ITEM INSIDE A PARENTHESIS. IF AN EQUAL 

SIGN IS ENCOUNTERED ATTER SOME INPUT/OUTPUT 

VARIABLE AFTER THE FIRST VARIABLE OR PARENTHESIZED 

LIST, THE OPTION IS COMMITTED. .ACTION CODE 

602 IMMEDIATELY CHECKS THE FLAG SET BY 

ACTION CODES 600 AND 601 TO SEE WHETHER 

THE VARIABLE PRECEDING THE EQUAL SIGN 

WAS SUBSCRIPTED. IF IT WAS, AN APPROPRIATE 

ERROR MESSAGE IS ISSUED. THEN THE 

PARAMETERS OF THE IMPLIED DO ARE CHECKED. 

THERE MUST BE A PARENTHESIS IMMEDIATELY 

AFTER AN IMPLIED DO SPECIFICATION. ACTION 

CODE 603 CHECKS FOR THIS PARENTHESIS AND ISSUES 

AN APPROPRIATE MESSAGE IF IT IS ABSENT, BUT 

DOES NOT ADVANCE THE SOURCE POINTER, ALLOWING 

THE RIGHT PARENTHESIS LITERAL AT THE 

END OF THE DEFINITION TO BE 

MATCHED IF THE RIGHT PARENTHESIS IS 

PRESENT. ANY OTHER METHOD OF CHECKING 

FOR THE RIGHT PARENTHESIS WOULD ADVANCE 

THE SOURCE POINTER AND CAUSE A FAILURE 

ON THE RIGHT PARENTHESIS LITERAL AT THE 

END OF THE DEFINITION. 



( 



/ 
*12 



DEFINES 
LISTS. 



THE ITEMS WHICH MAKE UP INPUT/OUTPUT 
ACTION CODES 600 AND 601 ARE USED TO 



SET A FLAG THAT CAN BE TESTED 
WHETHER THE LAST INPUT/OUTPUT 
WAS SUBSCRIPTED. ACTION CODE 
THIS FLAG TO "UNSUBSCRI PTED" , 
601 SETS IT TO "SUBSCRIPTED". 



201 TESTS FOR TOO MANY SUBSCRIPTS. 



•FUNC 



TABLE OF 
•REAL'. 



TRANSFERS FOR STATEMENTS BEGINNING WITH 



•RN« : 
THE RETURN STATEMENT. 



N $600 
$201 SUB 

* 
* 
* 
* 

* 
REAL 

RETURN 

* DEFINES 
REWIND = 

* DEFINES 
SUBROUTINE = 

* DEFINES 
STOP 

* DEFINES 

WRITE = «E 
* 

.*• DEFINES THE WRITE STATEMENT. 
* 

INTEGEXP = < < ■+■ I 
( +ARITHOP 

* THIS STATEMENT IS THE SAME AS 

* CONSTANT WILL NOT SATISFY THE 

* 



$601 
■ ) ' ) 



SUB 



( 



LATER TO DETERMINE 
VARIABLE 
600 SETS 
AND ACTION CODE 
ACTION CODE 



FUNCTION | TYPE > 



'ND 1 



DSREFNO 



THE REWIND STATEMENT, 



•OUTINE' 



*32 



N 



( DUMMYARGS ) 



THE SUBROUTINE STATEMENT. 



( 



.5. ) *129 $800 



THE STOP STATEMENT. 
READ 



t _ t 



) 



/ OPERANDI 



OPERANDI 



) 



*55 



EXP EXCEPT 
DEFINITION. 



THAT A REAL 



THIS STATEMENT WAS ADDED FOR PTM2770 FIX (RELEASE 19). 



OPERANDI = 






K 



/ $102 
/ 

EXP 



I 
EXP 



N 



( 



*12 



... 
• )• 



1 (• / 

$200 
> 



###>!« ###### 
# 



*7 
*12 



EXP 
• ) • ) 



THIS STATEMENT IS THE SAME AS 

FOR INTEGEXP) EXCEPT THAT THE 

CONSTANT IS NOT AN INTEGER. 

THIS STATEMENT WAS ADDED FOR PTM2770 FIX (RELEASE 19) 



OPERAND (BUT DEFINES OPERANDS 
K OPERATOR WILL FAIL IF A 



* 



SYNTAX END 



IPDE4270 

IPDE4280 

I D DE4290 

IPDE4300 

IPDE4310 

IPDE4320 

IPDE4330 

IPDE4340 

IPDE4350 

IPDE4360 

IPDE4370 

IPDE4380 

IPDE4390 

IPDE4400 

IPDE4410 

IPDE4420 

IPDE4430 

IPDE4440 

IPDE4450 

IPDE4460 

IPDE4470 

IPDE4480 

IPDE4490 

IPDE4500 

IPDE4510 

IPDE4520 

IPDE4530 

IPDE454C 

IPDE4550 

IPDE4560 

IPDE4570 

IPDE4580 

IPDE4590 

IPDE4600 

IPDE4610 

IPDE4620 

IPDE4630 

IPDE4640 

IPDE4650 

IPDE4660 

IPDE4670 

IPDE4680 

IPDE4690 

IPDE4700 

IPDE4710 

IPDE4720 

IPDE4730 

IPDE4740 

IPDE4750 

IPDE4760 

IPDE4770 

IPDE4780 

IPDE4790 

IPDE4800 

IPDE4810 

IPDE4820 

IPDE4330 

IPDE4840 

IPDE4850 

IPDE4860 

IPDE4870 

IPDE4880 

IPDE4890 

IPDE4900 

IPDE4910 

IPDE4970 

IPDE4980 

IPDE4990 

IPDE5000 

IPDE5010 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDTEE 

IPDE5020 
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METALANGUAGE USED FOR IPDAGH SYNTAX DEFINITION TABLE 



AGH 
SYN 
IPD 

* 
00 



* 



3 53IPDAGH t FORTRAN IV LEVELS G, Gl, H AND TSO DEFINITION 
TAX IPDAGH 
AGH = *3 < 'DO 1 DO | M ASSIGNMENT I KEYWORD | N ASSIGNMENT > 

THIS LINE DETERMINES THE OVERALL STRATEGY 
IN SCANNING STATEMENTS. ERROR MESSAGE 
3 IS ISSUED IF THE STATEMENT IS NONE OF 
THE ALTERNATIVES, SINCE THIS IS THE FIRST 
LINE OF THE SYNTAX AND IS THEREFORE AUTOMATIC- 
ALLY COMMITTED. ERROR MESSAGE 3 IS 
"UNRECOGNIZABLE STMNT OR MISSPELLED KEYWORD". 

AS THIS LINE INDICATES, EACH 

STATEMENT IS FIRST EXAMINED TO SEE WHETHER 

IT IS A DO STATEMENT. IF IT IS NOT, 

IT IS EXAMINED TO SEE WHETHER IT IS AN 

ASSIGNMENT STATEMENT, THEN A KEYWORD 

STATEMENT, AND FINALLY, IF IT IS NONE 

OF THESE, ASSIGNMENT STATEMENT IS ATTEMPTED 

ONCE MORE USING A SLIGHTLY DIFFERENT 

SYNTAX WHICH ALLOWS THE ASSIGNMENT 

STATEMENT TO BEGIN WITH A NAME THAT 

IS LONGER THAN SIX CHARACTERS* 

IF THE N ASSIGNMENT FORM IS TRIED, THE N 

OPERATOR WILL ISSUE A "NAME TOO LONG" MESSAGE 

FOR INITIAL NAMES OF MORE THAN SIX CHARACTERS 

EVEN THOUGH ASSIGNMENT MAY NEVER BECOME COMMITTED. 



'0' 



..... ) D ( D .4. ) 

: *140 $801 *33 ) N *143 
USNZINT > *53 •,• : < N 
< N | / USNZINT > ) 



« = • #5 

I / USNZINT > 



* 
* 



* 

USNZINT 
* 

ASS 



DEFINES THE SYNTAX OF A DO STATEMENT. 

THE N-OPEPATOR IS USED HERE INSTEAD OF 

THE M-OPERATpR EVEN THOUGH N WILL REQUIRE 

AT LEAST ONE VALID NAME BEFORE THE STATEMENT IS 

COMMITTED TO BEING A DO STATEMENT. THIS 

IS PERMISSIBLE BECAUSE THE INITIAL DIGITS REQUIRED 

BY THIS DEFINITION RULE OUT THE POSSIBILITY THAT 

A KEYWORD STATEMENT WILL SATISFY THIS DEFINITION. 

EACH PARAMETER OF THE DO IS A NAME OR AN 

UNSIGNED, NON-ZERO INTEGER. 

THIS DEFINITION WILL ALMOST ALWAYS FAIL 
AT THE INITIAL DIGITS, FOR STATEMENTS THAT 
ARE NOT DO STATEMENTS. HOWEVER, UNTIL 
THE FIRST COMMA IN THE PARAMETER LIST IS 
FOUND, IT COULD BE AN ASSIGNMENT STATEMENT 
SUCH AS "D03I=N**2". THEREFORE 
THE STATEMENT CANNOT BE COMMITTED TO BEING 
A DO STATEMENT UNTIL THE COMMA IS 
ENCOUNTERED. 



SHOULD THERE BE A COMMA AFTER THE STATEMENT NUMBER, 
ACTION CODE 801 CAUSES MESSAGE 140 TO BE ISSUED, 
AND THE STATEMENT IS COMMITTED TO THIS LINE. 



*4 -.• + « 



K $100 



DEFINES UNSIGNED, NONZERO INTEGER. ACTION CODE 
100 AFTER THE K OPERATOR CHECKS TO SEE THAT 
THE NUMERIC CONSTANT FOUND BY THE K OPERATOR 
WAS A NON-ZERO INTEGER. 



IGNMENT = 



I • ( « £= •< N ( 



ARITHEXP2 ( ",' 



N 



ARITHEXP2 



■) = ■ 



$200 
: $202 



> > 



# 
# 
* 
* 
* 
# 



*7 < ARITHEXP | LOGICEXP > 
DEFINES TWO CLASSES OF STATEMENTS 

A. ARITHMETIC AND LOGICAL ASSIGNMENT STATEMENTS 

B. ARITHMETIC AND LOGICAL STATEMENT FUNCTION DEFINITIONS 

A VALID SYMBOLIC NAME HAS BEEN FOUND BEFORE 
THIS LINE IS INVOKED, SO THE SYNTAX OF THE 
PART OF THE ASSIGNMENT BEFORE THE EQUALS 
SIGN IS ONE OF: 

1. A NAME 

2. A NAME FOLLOWED BY A PARENTHESIZED LIST OF NAMES 

3. A NAME FOLLOWED BY A PARENTHESIZED LIST OF 
EXPRESSIONS, AT LEAST ONE OF WHICH IS NOT 



5120 

IPDG0010 

IPDG0030 

IPDG0035 

IPDG0040 

IPDG0050 

IPDG0060 

IPDG0070 

IPDG0080 

IPDG0090 

IPDG0100 

IPDG0110 

IPDG0120 

IPDG0130 

IPDG0140 

IPDG0150 

IPDG0160 

IPDG0170 

IPDG0180 

IPDG0190 

IPDG0200 

IPDG0210 

IPDG0220 

IPDG0222 

IPDG0224 

IPDG0226 

IPDG0228 

IPDG0230 

IPDG0235 

IPDG0240 

IPDG0245 

IPDG0250 

IPDG0260 

IPDG0270 

IPDG0280 

IPDG0290 

IPDG0300 

IPDG0310 

IPDG0320 

IPDG0330 

IPDG0340 

IPDG0350 

IPDG0360 

IPDG0370 

IPDG0380 

IPDG0390 

IPDG0400 

IPDG0410 

IPDG0420 

IPDG0430 

IPDG0440 

IPDG0450 

IPDG0460 

IPDG0462 

IPDG0464 

IPDG0466 

IPDG0468 

IPDG0470 

IPDG0480 

IPDG0490 

IPDG0500 

IPDG0510 

IPDG0520 

IPDG0530 

IPDG0540 

IPDG0550 

IPDG0560 

IPDG0570 

IPDG0580 

IPDG0590 

IPDG0600 

IPDG0610 

IPDG0620 

IPDG0630 

IPDG0640 

IPDG0650 

IPDG0660 

IPDG0670 

IPDG0680 

IPDG0690 

IPDG0700 

IPDG0710 

IPDG0720 

IPDG0730 

IPDG0740 

IPDG0750 
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* 
* 

* 

* 

* 

* 

ARITHE 

* 

OPERAN 



SIMPLY A NAME 

IN CASES 1 AND 3, THE STATEMENT IS IN 

CLASS A t SINCE CLASS B STATEMENTS MUST 

HAVE AT LEAST ONE NAME IN PARENTHESES 

BEFORE THE EQUALS SIGNt AND NO EXPRESSION 

EXCEPT A NAME IS PERMITTED IN THE PARENTHESES 

IN CLASS B STATEMENTS, THEREFORE, IN 

CASE 3, ACTION CODE 202 IS USED TO CHECK 

FOR MORE THAN SEVEN SUBSCRIPTS. ACTION 

CODE 202 ISSUES A "TOO MANY SUBSCRIPTS PRECEDE" 

MESSAGE IF THERE WERE MORE THAN SEVEN 

EXPRESSIONS, 

IN CASE 2, THE STATEMENT COULD BE IN 

EITHER CLASS A OR CLASS B, AND SO, IF 

MORE THAN SEVEN NAMES ARE PRESENT, 

A "POSSIBLY TOO MANY SUBSCRIPTS PRECEDE" MESSAGE 

IS ISSUED BY ACTION CODE 200, 

IF THE STATEMENT IS NOT CASE 1, IT 

IS SCANNED TO SEE WHETHER IT CONTAINS 

AN EQUALS SIGN SOMEWHERE TO THE RIGHT 

OF THE INITIAL NAME. ASSIGNMENT 

FAILS IF AN EQUAL SIGN IS NOT FOUND. 

UNLESS A HOLLERITH FIELD CONTAINS THE 

EQUAL SIGN THAT SATISFIES THE SCANNING 

OPERATION, THIS TEST AVOIDS ANALYSIS 

OF A PARENTHESIZED FORM ( IN SUCH 

STATEMENTS AS FORMAT AND IF ) BY THE 

ASSIGNMENT SYNTACTIC LINE, WHEN THERE IS 

NO POSSIBITITY THAT THE STATEMENT IS AN ASSIGNMENT, 

WHEN AN EQUALS SIGN IS FOUND IN THE 

PROPER PLACE, THE STATEMENT IS COMMITTED. 



THE SYNTAX TO T 
IS THE SAME FOR 
THOUGH CLASS B 
TO SUBSCRIPTED 
THIS IS BECAUSE 
HAVE THE INFORM 
DETERMINE THAT 
PARENTHESIZED L 
WAS AN ARRAY EL 
NOT A FUNCTION 
SYNTAX CHECKER 
INFORMATION FRO 
ARRAY-DECLARING 
THE DISTINCTION 
DOES NOT SAVE S 



HE RIGHT OF THE EQUALS 
CLASSES A AND B, EVEN 

DOES NOT ALLOW REFERENCES 

VARIABLES IN THE EXPRESSION. 
THE SYNTAX CHECKER DOES NOT 

ATION THAT WOULD ENABLE IT TO 

A NAME FOLLOWED BY A 

1ST OF EXPRESSIONS 

EMENT REFERENCE AND 

REFERENCE. THE 

WOULD HAVE TO SAVE 

M DIMENSION AND OTHER 
STATEMENTS TO MAKE 

, AND THE SYNTAX CHECKER 

UCH INFORMATION. 



XP2 = ( < • + " | •-• > ) 0PERANDA2 *55 
( +ARITHOP / 0PERANDA2 ... ) -.■ - 

T DEFINES ARITHMETIC EXPRESSIONS 
OR INTEGER, BUT NOT COMPLEX. 
C EXPRESSION WHICH DOES NOT 
PLEX, LOGICAL, OR LITERAL 
EPT AS AN ARGUMENT OF A 
RENCE) WILL SATISFY THIS 
THE SYNTAX CHECKER ASSUMES 
OLIC NAME IS OF THE CORRECT 
T HAS NO WAY OF CHECKING 
SYMBOLIC NAME. ARITHEXP2 
AN EXPRESSION CANNOT BE COMPLEX 
PTS OR IN ARITHMETIC IF STATEMENTS. 



THIS STATEMEN 
OF TYPE REAL 
ANY ARITHMETI 
CONTAIN A COM 
CONSTANT (EXC 
FUNCTION REFE 
DEFINITION. 
THAT ANY SYMB 
TYPE, SINCE I 
THE TYPE OF A 
IS USED WHERE 
AS IN SUBSCRI 

DA2 = 



* 
* 
* 
# 
* 
* 
# 
* 
* 
* 
# 
* 
* 
* 
* 
* 



K | N ( •(• / *7 FUNCACTARG { 

/ FUNCACTARG ... ) $200 *12 •)■ ) 
•<• ARITHEXP2 / *12 ■)• > 



DEFINES NON-COMPLEX 
THE OPTIONAL PARENTHE 
MAY BE A LIST OF SUBS 
FUNCTION ACTUAL ARGUM 
THE SYNTAX CHECKER CA 
BETWEEN ARRAY ELEMENT 
REFERENCES, THE LIST 
LIST OF FUNCTION ACTU 
PERMISSIBLE FORMS FOR 
A SUBSET OF THOSE FOR 
ARGUMENTS, SO THE SYN 
NO PERMISSIBLE FORMS. 



PERANDS FOR ARITHEXP2. 
SIZED LIST AFTER A NAME 
CRIPTS OR A LIST OF 
ENTS. HOWEVER, SINCE 
NNOT DISTINGUISH 

REFERENCES AND FUNCTION 
IS TREATED AS A 
AL ARGUMENTS. THE 

SUBSCRIPTS ARE 

FUNCTION ACTUAL 
TAX CHECKER EXCLUDES 



THE FORM "ARITHMETIC EXPRESSION IN PARENTHESES" 
CANNOT BE COMMITTED UNTIL AFTER THE ARITHMETIC 



IPD 0760 
IPDG0770 
IPDG0780 
IPDG0790 
IPDG0800 
IPDG0810 
IPDG0820 
IPDG0830 
IPDG0840 
IPDG0850 
IPDG0860 
IPDG0870 
IPDG0880 
IPDG0890 
IPDG0900 
IPDG0910 
IPDG0920 
IPDG0930 
IPDG0940 
IPDG0950 
IPDG0960 
IPDG0970 
IPDG0980 
IPDG0990 
IPDG1000 
IPDG1010 
IPDG1020 
IPDG1030 
IPDG1040 
IPDG1050 
IPDG1060 
IPDG1070 
IPDG1080 
IPDG1090 
IPDG1100 
IPDG1110 
IPDG1120 
IPDG1130 
IPDG1140 
IPDG1150 
IPDG1160 
IPDG1170 
IPDG1180 
IPDG1190 
IPDG1200 
IPDG1210 
IPDG1220 
IPDG1230 
I°DG1240 
IPDG1250 
IPDG1260 
IPDG1270 
IPDG1280 
IPDG1290 
IPDG1300 
IPDG1310 
IPDG1320 
IPDG1330 
IPDG1340 
IPDG1350 
IPDG1360 
IPDG1370 
IPDG1380 
IPDG1390 
IPDG1400 
IPDG1410 
IPDG1420 
IPDG1430 
IPDG1440 
IPDG1450 
IODG1460 
IPDG1470 
IPDG1480 
IPDG1490 
IPDG1500 
IPDG1510 
IPDG1520 
IPDG1530 
IPDG1540 
IPDG1550 
IPDG1560 
IPDG1570 
IPDG1580 
IPDG1590 
IPDG1600 
IPDG1610 
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* 

* 

* 

ARITHOP 
* 



EXPRESSION IS FOUND. THIS IS BECAUSE 

THERE ARE CASES IN WHICH IT WOULD NOT 

BE AN ERROR IF THE EXPRESSION IN THE PARENTHESES 

IS A LOGICAL EXPRESSION. THIS POSSIBILITY 

ARISES IN ANY PLACE WHERE EITHER AN 

ARITHMETIC EXPRESSION OR A LOGICAL EXPRESSION 

IS PERMITTED, FOR EXAMPLE, IN ACTUAL 

ARGUMENT LISTS AND IN IF STATEMENTS. IN 

ALL THESE CASES, THE SOURCE STATEMENT IS 

CHECKED FOR THE ARITHMETIC FORM FIRST, 

THEN THE LOGICAL, SINCE ARITHMETIC 

EXPRESSIONS ARE MORE COMMON THAN LOGICAL 

EXPRESSIONS. IF, FOR EXAMPLE, AN EXPRESSION 

IN ONE OF THESE PLACES WERE OF THE FORM 



(A.GT.B) 

WHICH IS A VALID FORM, A COMMIT 
ON THE THIRD LINE WOULD CAUSE A 
ERROR MESSAGE TO BE ISSUED. 

it t+iQ »-• •> 



BEFORE ARITHEXP2 
SPURIOUS 



»##• 



1*1 o 



* 
FUNCACTARG 



TABLE OF THE ARITHMETIC OPERATORS. THE 
DOUBLE ASTERISK MUST PRECEDE THE SINGLE 
ASTERISK SO THAT A SPURIOUS MATCH ON 
"SINGLE ASTERISK" WILL NOT OCCUR WHEN THE 
SOURCE STATEMENT CONTAINS A DOUBLE 
ASTERISK. 

= < ARITHEXP | LOGICEXP I C | 






DEFINITION OF THE FORMS THAT MAY APPEAR 
AS ACTUAL ARGUMENTS IN A FUNCTION 
REFERENCE. THESE ARE VALID FORMS FOR 
FUNCTION ACTUAL ARGUMENTS REGARDLESS OF 
THE TYPE OF THE EXPRESSION IN WHICH THE 
FUNCTION REFERENCE OCCURS. 



ARITHEXP = 



* 
* 
* 



( < 

I** i 

> ., 



/ 
) 



OPERANDA2 



*55 OPERANDA 
+ARITHOP / 



( < 

OPERANDA 



DEFINES THE MOST 
EXPRESSION. THE 
CONSTANTS MAY BE 



GENERAL FORM OF ARITHMETIC 

OPERANDS WHICH ARE 

OF ANY NUMERIC TYPE, 

EXCEPT THAT OPERANDS WHICH FOLLOW THE 

EXPONENTIATION OPERATOR MUST 

BE OF TYPE REAL OR INTEGER. SINCE 

THIS DEFINITION EXPLICITLY CHECKS FOR THE 

EXPONENTIATION OPERATOR BEFORE USING THE 
A MATCH TQ THE 

OPERATOR IN THE TABLE WILL 



ARITHOP TABLE, 
EXPONENTIATION 
NOT OCCUR. 



IF A PERIOD 
EXPRESSION, 



OCCURS AFTER AN ARITHMETIC 
THE EXPRESSION WAS PROBABLY 



THE FIRST PART OF A LOGICAL EXPRESSION. 
THE -••.• AT THE END OF THIS DEFINITION 
CAUSES IT TO FAIL IN SUCH CASES. 



OPERANDA = 



* 
* 
LOGICEXP 



< K | N ( •( • / *7 
',' / FUNCACTARG ... \ $200 

•(• ( < •+• | ••-• > ) K $103 
(<•+••-•>) K $104 *12 
•(• ARITHEXP / *12 ■•)• > 

DEFINES OPERANDS OF ANY NUMERIC TYPE 
INCLUDING COMPLEX. ACTION CODES 103 
AND 104 ARE USED TO CHECK THAT THE 
TWO NUMERIC CONSTANTS WHICH FORM A 
COMPLEX CONSTANT AGREE IN LENGTH. THE 
FORM "ARITHMETIC EXPRESSION IN PARENTHESES" 
CANNOT BE COMMITTED UNTIL AFTER THE ARITHMETIC 
EXPRESSION IS FOUND, FOR THE REASON GIVEN IN 
THE DISCUSSION OF 0PERANDA2. 



FUNCACTARG 
*12 M 1 



OPERANDL 



( '.NOT. 1 
OPERANDL 



) 



OPERANDL 
) 



*57 ( +LOGOP 



DEFINES LOGICAL EXPRESSIONS. 



< 



NAME -ARITHOP ( +RELOP 
ARITHEXP3 / *51 +RELOP 
•<• / LOGICEXP *12 ')• 
•.TRUE.' T '.FALSE. 1 > 



/ *139 ARITHEXP3 ) 
*139 ARITHEXP3 



IPDG1620 
IPDG1630 
IPDG1640 
IPDG1650 
IPDG1660 
IPDG1670 
IPDG1680 
IPDG1690 
IPDG1700 
IPDG1710 
IPDG1720 
IPDG1730 
IPDG1740 
IPDG1750 
IPDG1760 
IPDG1770 
IPDG1780 
IPDG1790 
IPDG1800 
IPDG1810 
IPDG1820 
IPDG1830 
IPDG1840 
IPDG1850 
IPDG1860 
IPDG1870 
IPDG1880 
IPDG1890 
IPDG1900 
IPDG1910 
IPDG1920 
IPDG1930 
IPDG1940 
IPDG1950 
IPDG1960 
IPDG1970 
IPDG1980 
IPDG1990 
IPDG2000 
IPDG2010 
IPDG2020 
IPDG2030 
IPDG2040 
IPDG2050 
IPDG2060 
IPDG2070 
IPDG2080 
IPDG2090 
IPDG2100 
IPDG2110 
IPDG2120 
IPDG2130 
IPDG2140 
IPDG2150 
IPDG2152 
IPDG2154 
IPDG2156 
IPDG2158 
IPDG2160 
IPDG2162 
IPDG2164 
IPDG2170 
IPDG2180 
IPDG2190 
IPDG2195 
IPDG2200 
IPDG2210 
IPDG2220 
IPDG2230 
IPDG2240 
IPDG2250 
IPDG2260 
IPDG2270 
IPDG2280 
IPDG2290 
IPDG2300 
IP.DG23JJQ 
IPDG2320 
IPDG2330 
IPDG2340 
IPDG2350 
IPDG2360 
IPDG2370 
IPDG2380 
IPDG2390 
IPDG2400 
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* 
* 

* 

* 

* 

* 
LOGOP 

RELOP 



OEFINES THE OPERANDS THAT CAN APPEAR IN 
LOGICAL EXPRESSIONS. NOTE THAT THE COMMIT IN 
THE FORM "LOGICAL EXPRESSION IN PARENTHESES" 
PRECEDES THE EXPRESSION. THIS COMMIT IS 
POSSIBLE SINCE ANY SOURCE BEING TESTED 
AGAINST LOGICAL EXPRESSION HAS ALREADY 
BEEN TESTED AGAINST ARITHMETIC EXPRESSION 
IF ARITHMETIC EXPRESSION WAS A POSSIBLE 
ALTERNATIVE. 



WHEN A NA 
ABSENCE 
NO ARITHM 
BE AN ARI 
FOR A PEL 
EXPRESSIO 
ARITHMETI 
NAME ALTE 
BY ARITHE 
OPERATOR 



ME IS FOUND, THIS DEFINITION TESTS FOR THE 
F AN ARITHMETIC OPERATOR FOLLOWING IT. IF 
ETIC OPERATOR FOLLOWS* THE NAME COULD STILL 
THMETIC EXPRESSION, SO THE DEFINITION TESTS 
ATIONAL OPERATOR FOLLOWED BY AN ARITHMETIC 
N AS AN OPTION AFTER THE NAME. IF AN 
C OPERATOR DOES OCCUR AFTER THE NAME, THE 
RNATIVE FAILS, AND THE EXPRESSION IS PROCESSED 
XP3 IN THE NEXT ALTERNATIVE. THE RELATIONAL 
IS NOT OPTIONAL IN THIS CASE. 



• .AND. .NOT. 1 
"•OR.. NOT, 1 



•.AND.' 
■•OR. 1 " 



TABLE OF THE LOGICAL OPERATORS. THE OPERATOR 
".NOT." IS NOT A MEMBER OF THIS TABLE BECAUSE 
ALL OF ITS VALID USES ARE ACCOUNTED FOR BY 
THE OPTIONAL ".NOT." IN LOGICEXP. 



* 

ARITHEXP3 = 



'.LT.' 
' .GE.' 



.LE. ' 
.GT.< 



•.EQ.« 



•.NE.« 



TABLE OF THE RELATIONAL OPERATORS. 



KEYWO 

* 
* 

* 
ARITH 

* 



+ARITHOP 



> ) OPERANDA2 *55 
OPERANDA2 ... ) 



DEFINES NON-COMPLEX ARITHMETIC EXPRESSIONS FOR 
USE IN LOGICAL EXPRESSIONS. UNLIKE ARITHEXP2, 
THIS DEFINITION ALLOWS THE ARITHMETIC EXPRESSION 
TO BE FOLLOWED BY A PERIOD. 



RD = 



< 
♦ 13 



IF' 



) 



/ *31 

LOGICIF 



<■ 
> 



I 



< ARITHIF 
+AFTERIF | 



I / *17 

+OTHERKW 



LOGIC 
> 



EXP 



DEFINES ALL THE STATEMENTS STARTING WITH A KEYWORD 
EXCEPT FOR THE DO STATEMENT. EXCEPT FOR THE IF 
KEYWORD, ALL THE KEYWORDS ARE IN ONE OF THE 
TWO TABLES AFTERIF AND OTHERKW. THESE 
TABLES TRANSFER THE SYNTAX TABLE SCAN TO THE 
APPROPRIATE SYNTACTIC LINE OR ACTION CODE IF THE FIRST 
AVAILABLE SOURCE CHARACTERS MATCH A KEYWORD. 

THE STATEMENTS STARTING WITH THE IF KEYWORD MUST BE 

HANDLED SPECIALLY SINCE THERE ARE TWO 

SYNTACTIC FORMS STARTING WITH 'IFC, 

AND THE REQUIRED DISTINCTION BETWEEN 

THEM CANNOT BE MADE IF THE , IF( t KEYWORD 

IS PLACED IN THE TABLE OF THE KEYWORDS 

PERMITTED AFTER ONE OF THEM, THE LOGICAL IF. 

THE MFC 1 STATEMENTS ARE COMMITTED AFTER THE 

•IF' IN ORDER TO DIAGNOSE A MISSING LEFT 

PARENTHESIS. 



IF 



< NAME 
♦ 13 • ) • 



♦ 15 



*53 



LOGICIF 
> ,« #43 



I ARITHEXP2 
*53 »,' *43 



DEFINES THE ARITHMETIC IF STATEMENT AND A 
SPECIAL CASE OF THE LOGICAL IF STATEMENT. 



THE SPECIAL CASE OF THE 
OCCUR WHEN THE PARENTHES 
FOLLOWING THE IF KEYWORD 
OF AN OPTIONALLY SUBSCRI 
ENCLOSED IN ANY NUMBER 
SUCH AN EXPRESSION COULD 
EXPRESSION OR A LOGICAL 
CANNOT BE COMMITTED UNTI 
FOUND AFTER THE PARENTHE 
STATEMENT LABEL IS FOUND 
TO BE LOGICAL, AND NESTI 
OCCURS. (LOGICIF BEGINS 



LOGICAL IF STATEMENT CAN 
IZED EXPRESSION 

CONSISTS SOLELY 
PTED VARIABLE NAME 
F PARENTHESES. SINCE 

EITHER BE AN ARITHMETIC 
EXPRESSION, THIS LINE 
L A STATEMENT LABEL IS 
SIZED EXPRESSION. IF NO 
, THE IF IS ASSUMED 
NG TO THE LOGICIF LINE 

WITH A STATEMENT COMMIT. 



BECAUSE THE SPECIAL CASE IS TRIED FIRST, ANY 
EXPRESSION WHICH SATISFIES ARITHEXP2 WILL 



IPDG2410 
IPDG2420 
IPDG2430 
IPDG2440 
IPDG2450 
IPDG2460 
IPDG2470 
IPDG2480 
IPDG2490 
IPDG2500 
IPDG2502 
IPDG2504 
IPDG2506 
IPDG2508 
IPDG2510 
IPDG2512 
IPDG2514 
IPDG2515 
IPDG2516 
IPDG2517 
IPDG2518 
IPDG2519 

*IPDG2520 
IPDG2530 
IPDG2540 
IPDG2550 
IPDG2560 
IPDG2570 
IPDG2580 
IPDG2590 

'IPDG2600 
IPDG2610 
IPDG2620 
IPDG2630 
IPDG2632 

*IPDG2634 
IPDG2636 
IPDG2638 
IPDG2640 
IPDG2642 
IPDG2644 
IPDG2646 
IPDG2648 

HPDG2650 
IPDG2655 
IPDG2660 
IPDG2670 
IPDG2672 
IPDG2674 
IPDG2676 
IPDG2678 
IPDG2680 
IPDG2682 
IPDG2684 
IPDG2686 
IPDG2690 
IPDG2700 
IPDG2710 
IPDG2720 
IPDG2730 
IPDG2740 
IPDG2742 
IPDG2744 
IPDG2746 
IPDG2750 

HPDG2760 
IPDG2765 
IPDG2770 
IPDG2775 
IPDG2780 
IPDG2785 
IPDG2790 
IPDG2795 
IPDG2800 
IPDG2805 
IPDG2810 
IPDG2815 
IPDG2820 
IPDG2825 
IPDG2830 
IPDG2835 
IPDG2840 
IPDG2845 
IPDG2850 
IPDG2855 
IPDG2860 
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* 

* 

NAME 



* 
* 
* 
* 
LOGICIF 



CONTAIN AT LEAST ONE NUMERIC CONSTANT OR ARITHMETIC 
OPERATOR. FURTHER, T.HE -. • . • AT THE END OF ARITHEXP2 
ASSURES THAT IT IS NOT FOLLOWED BY A RELATIONAL 
OPERATOR. THUS, THE STATEMENT COMMIT CAN OCCUR 
IMMEDIATELY AFTER THE REFERENCE TO AR\ITHEXP2. 

< N ( •(• / *7 FUNCACTARG ( • ,' / 
FUNCACTARG ... ) $200 *12 •)• ) I 
•(• NAME •)• > 



* 

* 
* 

D02 
ARI 



DEFINES AN OPTIONALLY SUBSCRIPTED VARIABLE NAME 
ENCLOSED BY ANY NUMBER OF PAIRS OF PARENTHESES. 

= : < »D0» D02 / *23 $801 | M ARITHASG I 

+AFTERIF | 'IF' / *19 •(• *147 ARITHEXP2 »)» S 
*53 •,' *43 S *53 • ,» *43 S | / *23 -OTHERKW 
*19 N ARITHASG > 

DEFINES THE PART OF THE LOGICAL IF STATEMENT TO THE 
RIGHT OF THE PARENTHESIZED EXPRESSION WHICH FOLLOWS 
THE IF KEYWORD. THIS LINE IS SIMILAR TO THE FIRST 
SYNTACTIC LINE CIPDAGH) OF THE DEFINITION, BUT NOT 
IDENTICAL, SINCE THERE ARE RESTRICTIONS ON THE 
TYPE OF STATEMENT AFTER THE I F ( EXPRESS ION ) PART OF 
A LOGICAL IF. 

THE STATEMENT IS FIRST EXAMINED TO SEE WHETHER IT IS 
A DO STATEMENT, JUST AS ON LINE IPDAGH. HOWEVER, 
SINCE DO STATEMENTS ARE INVALID, ACTION CODE 801 IS 
USED TO ISSUE MESSAGE 23 IF D02 PRODUCES A T. 

THE NEXT ALTERNATIVE IS M ARITHASG, JUST AS IN IPDAGH. 

THE THIRD AND FOURTH ALTERNATIVES CORRESPOND TO 

THE THIRD ALTERNATIVE OF IPDAGH: THEY DEFINE ALL 

THE KEYWORD STATEMENTS VALID AFTER A LOGICAL IF. 

THE IF ALTERNATIVE DESCRIBES ONLY THE ARITHMETIC 

IF, SINCE A LOGICAL IF CANNOT FOLLOW A LOGICAL IF. 

FINALLY, THE FIFTH ALTERNATIVE CHECKS THE NEXT AVAILABLE 
SOURCE AGAINST THE TABLE OF KEYWORDS WHICH CANNOT 
FOLLOW A LOGICAL IF. IF THE AVAILABLE SOURCE MATCHES 
ONE OF THESE KEYWORDS, MESSAGE 23 IS ISSUED. 
OTHERWISE, N ARITHASG IS TRIED, AND MESSAGE 19 
IS ISSUED IF THAT FAILS. 



( 



) N ■=■ < N | USNZINT > 



DEFINES THE SYNTAX OF THE BEGINNING OF A DO 
STATEMENT FOR USE IN DIAGNOSING ITS PRESENCE 
AFTER A LOGICAL IF. THERE IS NO STATEMENT 
COMMIT ON THIS LINE SO THAT IT CAN UNNEST 
BACK TO THE LOGICIF LINE WHICH WILL ISSUE A 
MESSAGE IF THIS LINE PRODUCES A , T I . 



THASG = 



# 
AFTERIF = 



) = ' 



: | £= •(• ARITHEXP2 ( •,» ARITHEXP2 « 
$202 > *7 < ARITHEXP I LOGICEXP > 



. ) 



* 

ASS 
BAC 



DEFINES THAT PORTION OF ASSIGNMENT THAT 

MAY APPEAR AFTER A LOGICAL IF. SINCE 

STATEMENT FUNCTION DEFINITIONS CANNOT APPEAR 

AFTER A LOGICAL IF, THE SECOND ALTERNATIVE 

OF ASSIGNMENT IS NOT INCLUDED IN THIS 

DEFINITION, AND THE "TOO MANY SUBSCRIPTS PRECEDE" 

ACTION CODE IS USED. 

•ASSI" ASSIGN 'BACK 1 BACKSPACE 'CALL 1 

•CONT 1 CONTINUE »ENDF« ENDFILE 'FIND 1 

•GOTO 1 GOTO •PAUS 1 PAUSE 'PRIN' 

•PUNC PUNCH "READ" READ 'RETU' 

•REWI 1 REWIND 'STOP 1 STOP 'WRIT* 

TABLE OF ALL THE KEYWORDS (EXCEPT IF) THAT 
ARE PERMITTED AFTER A LOGICAL IF. A REFERENCE 
TO THIS TABLE CAUSES TRANSFER TO THE APPROPRIATE 
SYNTACTIC LINE IF A MATCH IS FOUND. WHEN 
A TRANSFER OCCURS, THE LINE TO WHICH THE 
TRANSFER IS MADE BEGINS CHECKING WITH THE 
FIRST CHARACTER. AFTER THE CHARACTERS THAT 
MATCHED THE TABLE ENTRY. 



CALL 

FIND 

PRINT 

RETURN 

WRITE 



IGN = •GN' : *42 S *44 'TO 1 

DEFINES THE ASSIGN STATEMENT. 
KSPACE = 'SPACE' : DSREFNO 



*33 N 



IPDG2865 
IPDG2870 
IPDG2875 
IPDG2880 
IPDG2881 
IPDG2882 
IPDG2884 
IPDG2886 
IPDG2888 
IPDG2890 
IPDG2892 
IPDG2894 
IPDG2896 
IPDG2900 
IPDG2910 
IPDG2915 
IPDG2920 
IPDG2930 
IPDG2940 
IPDG2950 
IPDG2960 
IPDG2970 
IPDG2980 
IPDG2990 
IPDG3000 
IPDG3010 
IPDG3020 
IPDG3030 
IPDG3040 
IPDG3050 
IPDG3060 
IPDG3070 
IPDG3080 
IPDG3090 
IPDG3100 
IPDG3110 
IPDG3120 
IPDG3130 
IPDG3140 
IPDG3150 
IPDG3160 
IPDG3170 
IPDG3180 
IPDG3190 
IPDG3290 
IPDG3291 
IPDG3292 
IPDG3293 
IPDG3294 
IPDG3295 
IPDG3296 
IPDG3297 
IPDG3298 
IPDG3299 
IPDG3300 
IPDG3310 
IPDG3320 
IPDG3330 
IPDG3340 
IPDG3350 
IPDG3360 
IPDG3370 
IPDG3380 
IPDG3390 
IPDG3400 
IPDG3410 
IPDG3420 
IPDG3430 
IPDG3440 
IPDG3450 
IPDG3460 
IPDG3470 
IPDG3480 
IPDG3490 
IPDG3500 
IPDG3510 
IPDG3520 
IPDG3530 
IPDG3540 
IPDG3550 
IPDG3560 
IPDG3570 
IPDG3580 
IPDG3590 
IPDG3600 
IPDG3610 
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* 

DSREFNO 

* 
CALL 



DEFINES THE BACKSPACE STATEMENT. 

= *27 < N | K / $105 > 

DEFINES DATA SET REFERENCE NUMBER, 
ACTION CODE 105 ISSUES AN APPROPRIATE 
MESSAGE IF THE K ALTERNATIVE ENCOUNTERS 
ANY NUMERIC CONSTANT OTHER THAN A NON-ZERO 
INTEGER LESS THAN OR EQUAL TO 99. 



N ( 



M ■ 



) *13 
DEFINES THE CALL STATEMENT. 
= < ARITHEXP | LOGICEXP 



*46 



= : *33 
CALLARG 
* 
* 

CALLARG 

* DEFINES THE FORMS PERMITTED FOR 

* ARGUMENT IN A CALL STATEMENT. 

CONTINUE = MNUE" : 
* 

* DEFINES THE CONTINUE STATEMENT 
* 

ENDFILE = ULE' : DSREFNO 
* 

DEFINES THE ENDFILE STATEMENT. 



CALLARG 
• ) 



C I H | 
AN ACTUAL 



'££' 



*42 



FIND 
* 

* 
* 
* 

GOTO 



* 

* 

* 

* 
* 

* 
* 
* 

* 
* 
* 

PTM2770 FIX (RELEASE 19) CHANGED ARITHEXP2 TO INTEGEXP SO ******* 
THAT REAL CONSTANTS WILL BE FOUND IN ERROR. ******************** 

* 

< •(• / *43 S ( ',« / S 

*52 %• *33 N I N / *52 

*43 S ( •,' / S ... ) *13 M 

*43 S > 



= : *30 •<■ DSREFNO *61 ■■•• *7 INTEGEXP *13 M 1 

DEFINES THE FIND STATEMENT. THE FOUR 
QUOTATION MARKS REPRESENT A LITERAL CONSISTING 
OF ONE QUOTE IN THE SOURCE. 



> • • 



) *13 

*30 ■ 



) 



DEFINES THE THREE KINDS OF GOTO STATEMENT. 

THESE ARE DEFINED IN THE ORDER: COMPUTED 

GOTO, ASSIGNED GOTO, UNCONDITIONAL 

GOTO. THIS ORDERING ALLOWS A COMMIT 

TO PRECEDE THE S OPERATOR IN THE DEFINITION OF 

THE UNCONDITIONAL GOTO. 



•E» : < C | ( 

DEFINES THE PAUSE STATEMENT. 

= ■T"' OLDIO 
DEFINES THE PRINT STATEMENT. 



( 



*133 < S I 
,» / IOLIST 



) 



DEFINES THE SYNTAX TO THE RIGHT OF THE KEYWORD 
FOR PRINT, PUNCH, AND THE OLD FORM OF READ. 



* 

* 

* 

* 

* 

* 

* 

* 

PAUSE 

* 

* 

* 

PRINT 

* 

* 

* 

OLDIO 

* 
* 
* 
* 
IOLIST 

* 
* 
* 
IOVAR 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

PARENLIST = •(• / *58 < IOVAR | 
/ *32 < IOVAR ( •=• 
USNZINT > *52 ■ ,' < N 
N | / USNZINT > 
PARENLIST > 



D .5. ) 



/ $401 I 



*129 $800 



*58 

< 



< IOVAR 
IOVAR | 



PARENLIST 
PARENLIST 



DEFINES AN INPUT/OUTPUT LIST. 



$600 
$201 



( ' (• 
ARITHEXP2 



$601 



*7 



*12 



ARITHEXP2 
• )• 



) 



DEFINES THE ITEMS WHICH MAKE UP INPUT/OUTPUT 
LISTS. ACTION CODES 600 AND 601 ARE USED TO 
SET A FLAG THAT CAN BE TESTED LATER TO DETERMINE 
WHETHER THE LAST INPUT/OUTPUT VARIABLE 
WAS SUBSCRIPTED. ACTION CODE 600 SETS 
THIS FLAG TO "UNSUBSCRI PTED", AND ACTION CODE 
601 SETS IT TO "SUBSCRIPTED". ACTION CODE 
201 TESTS FOR TOO MANY SUBSCRIPTS. 



PARENLIST 
/ $602 < N 
I / USNZINT 
) $603 ) 
*12 «)« 



> 



IPDG3620 

IPDG3630 

IPDG3640 

IPDG3650 

IPDG3660 

IPDG3670 

IPDG3680 

IPDG3690 

IPDG3700 

IPDG3710 

IPDG3720 

IPDG3730 

IPDG3740 

IPDG3750 

IPDG3760 

IPDG3770 

IPDG3780 

IPDG3790 

IPDG3800 

IPDG3810 

IPDG3820 

IPDG3830 

IPDG3840 

IPDG3850 

IPDG3860 

IPDG3870 

IPDG3880 

IPDG3890 

IPDAGH 

IPDG3910 

IPDG3920 

IPDG3930 

IPDG3940 

IPDAGH 

IPDAGH 

IPDAGH 

IPDG3950 

IPDG3960 

IPDG3970 

IPDG3980 

IPDG3990 

IPDG4000 

IPDG4010 

IPDG4020 

IPDG4030 

IPDG4040 

IPDG4050 

IPDG4060 

IPDG4070 

IPDG4080 

IPDG4090 

IPDG4100 

IPDG4160 

IPDG4170 

IPDG4180 

IPDG4190 

IPDG4200 

IPDG4210 

IPDG4215 

IPDG4220 

IPDG4230 

IPDG4240 

IPDG4250 

IPDG4260 

IPDG4270 

IPDG4280 

IPDG4290 

IPDG4300 

IPDG4310 

IPDG4320 

IPDG4330 

IPDG4340 

IPDG4350 

IPDG4360 

IPDG4370 

IPDG4380 

IPDG4390 

IPDG4400 

IPDG4410 

IPDG4420 

IPDG4430 

IPDG4440 

IPDG4450 

IPDG4460 

IPDG4470 

IPDG4480 
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* 

* 
* 
* 

* 
* 

* 

* 

* 
* 

* 

* 

* 
* 

* 

PUNCH 

* 

READ 

* 
NEWIO 



DEFINES THE PARENTHESIZED LIST THAT MAY BE 
A MEMBER OF AN INPUT/OUTPUT LIST. THIS 
COMPLICATED LOOKING DEFINITION IS BASICALLY 
JUST: 



PARENLIST = •( « < 
( % ■ / 



IOVAR .1 
< IOVAR 



PARENLIST > 
I PARENLIST > 



HOWEVERt THERE IS A LENGTHY OPTION AFTER 

THE SECOND OCCURRENCE OF IOVAR. THE OPTION 

DESCRIBES THE SYNTAX FOUND WHEN THE SOURCE 

CONTAINS AN IMPLIED DO. THIS OPTION 

BEGINS WITH THE LEFT PARENTHESIS ON THE SECOND 

LINE AND ENDS WITH THE LAST RIGHT 

PARENTHESIS ON THE FOURTH LINE. 

THE FIRST OCCURRENCE OF IOVAR DOES NOT 

HAVE THE OPTION* BECAUSE AN IMPLIED 

DO SPECIFICATION MAY NOT BE THE FIRST 

ITEM INSIDE A PARENTHESIS. IF AN EQUAL 

SIGN IS ENCOUNTERED AFTER SOME INPUT/OUTPUT 

VARIABLE AFTER THE FIRST VARIABLE OR PARENTHESIZED 

LIST, THE OPTION IS COMMITTED. ACTION CODE 

602 IMMEDIATELY CHECKS THE FLAG SET BY 

ACTION CODES 600 AND 601 TO SEE WHETHER 

THE VARIABLE PRECEDING THE EQUAL SIGN 

WAS SUBSCRIPTED. IF IT WAS, AN APPROPRIATE 

ERROR MESSAGE IS ISSUED. THEN THE 

PARAMETERS OF THE IMPLIED DO ARE CHECKED. 

THERE MUST BE A PARENTHESIS IMMEDIATELY 

AFTER AN IMPLIED DO SPECIFICATION. ACTION 

CODE 603 CHECKS FOR THIS PARENTHESIS AND ISSUES 

AN APPROPRIATE MESSAGE IF IT IS ABSENT, BUT 

DOES NOT ADVANCE THE SOURCE POINTER, ALLOWING 

THE RIGHT PARENTHESIS LITERAL AT THE 

END OF THE DEFINITION TO BE 

MATCHED IF THE RIGHT PARENTHESIS IS 

PRESENT. ANY OTHER METHOD OF CHECKING 

FOR THE RIGHT PARENTHESIS WOULD ADVANCE 

THE SOURCE POINTER AND CAUSE A FAILURE 

ON THE RIGHT PARENTHESIS LITERAL AT THE 

END OF THE DEFINITION. 



'H' 



OLDIO 



DEFINES THE PUNCH STATEMENT. 



< 



.•(• OLDIO 



I 



NEWIO 



DEFINES READ STATEMENTS. IF THERE IS NOT 
A LEFT PARENTHESIS AFTER THE READ, THE 
STATEMENT IS THE OLD FORM OF READ. 



( 



*30 •(' 
't' < 

< *42 

• ,ERR=« 
IOLIST 



DSREFNO 
S I •*• 
f ,END=« / 
/ S ( 
) 



( ••» 

' $401 

S ( 

' ,END=« 



/ *7 
I N -.« 
, ,ERR=» 
/ S ) 



INTEGEXP 
= • > ) 
/ S ) 

> ) *13 



* 
* 

* 
* 
* 

* 

* 

RETURN = 

* 

* DEFINES THE RETURN STATEMENT. THE 

* RETURN I FORM IS ALWAYS PERMITTED BECAUSE 

* THE SYNTAX CHECKER HAS NO INFORMATION 

* AVAILABLE REGARDING THE KIND OF PROGRAM 

* UNIT THE RETURN OCCURS IN. 

REWIND = ^ND« : DSREFNO 
* 



DEFINES THE FORM OF EITHER READ (NEW FORM) 
OR WRITE AFTER THE KEYWORD. THIS DEFINITION 
ENCOMPASSES SEQUENTIAL OR DIRECT ACCESS, 
FORMATTED OR UNFORMATTED, READ AND WRITE 
STATEMENTS. ANY OF THESE STATEMENTS MAY 
HAVE THE ERR= AND END= PARAMETERS, 
ALTHOUGH NO INTERPRETATION IS GIVEN EITHER 
PARAMETER IN ANY WRITE, AND THE END= PARAMETER 
HAS NO INTERPRETATION IN A DIRECT ACCESS READ. 
THE IOLIST IS OPTIONAL IN ALL FORMS. 
THE DEFINITION IS MADE COMPLICATED BY 
THE FACT THAT WHEN BOTH END= AND 
ERR= OCCUR, EITHER ONE MAY OCCUR FIRST. 



* 

* 

* 

* 

* 
* 
* 
* 
* 
* 
* 

PT.M277g.FIX_(RELEASE._i?) .CHANGED ARITHEXP2 TO INTEGEXP SO ******* 



THAT REAL CONSTANTS WILL BE FOUND IN ERROR, 
•RN« : ( < N | USNZINT > 



) 



IPDG4490 

IPDG4500 

IPDG4510 

IPDG4520 

IPDG4530 

IPDG4540 

IPDG4550 

IPDG4560 

IPDG4570 

IPDG4580 

IPDG4590 

IPDG4600 

IPDG4610 

IPDG4620 

IPDG4630 

IPDG4640 

IPDG4650 

IPDG4660 

IPDG4670 

IPDG4680 

IPDG4690 

IPDG4700 

IPDG4710 

IPDG4720 

IPDG4730 

IPDG4740 

IPDG4750 

IPDG4760 

IPDG4770 

IPDG4780 

IPDG4790 

IPDG4800 

IPDG4810 

IPDG4820 

IPDG4830 

IPDG4840 

IPDG4850 

IPDG4860 

IPDG4870 

IPDG4880 

IPDG4890 

IPDG4900 

IPDG4910 

IPDG4920 

IPDG4930 

IPDG4940 

IPDG4950 

IPDG4960 

IPDG4970 

IPDG4980 

IPDG4990 

IPDG5000 

IPDG5010 

IPDAGH 

IPDG5030 

IPDG5035 

IPDG5040 

IPDG5050 

IPDG5060 

IPDG5070 

IPDG5080 

IPDG5090 

IPDG5100 

IPDG5110 

IPDG5120 

IPDG5130 

IPDG5140 

IPDG5150 

IPDG5160 

IPDG5170 

IPDG5180 

IPDG5190 

IPDG5200 

IPDAGH 

IPDAGH 

IPDAGH 

IPDG5210 

IPDG5220 

IPDG5230 

IPDG5240 

IPDG5250 

IPDG5260 

IPDG5270 

IPDG5280 

IPDG5290 

IPDG5300 
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STOP 
-WRITE 
OTHERKW 



DEFINES THE REWIND STATEMENT, 



( 



.5. ) *129 $800 



DEFINES THE STOP STATEMENT. 

= 'E' NEWIO 
DEFINES THE WRITE STATEMENT. 



•AT' AT 



•COMP' 
•DEFI' 
•DOUB' 
•EQUI' 
•FUNC 
•LOGI 1 
•SUBR' 



•BLOC 1 
• DATA' 
•DIME 1 
•END 1 
•EXTE' 
• IMPL 1 
•NAME' 
•TRAC 



BLOCKDATA 

DATA 

DIMENSION 

END 

EXTERNAL 

IMPLICIT 

NAMELIST 

TRACE 



TABLE OF ALL KEYWORDS THAT CANNOT FOLLOW 
A LOGICAL IF. FOR EACH OF THE ENTRIES, 
A MATCH WITH THE LITERAL RESULTS IN A 
TRANSFER TO THE APPROPRIATE SYNTACTIC 



LINE. 



DEBUG 
ACTION 

AND 



COMPLEX 

DEFINEFILE 

DOUBLE 

EQUIVALENCE 

FUNCTION 

LOGICAL 

SUBROUTINE 

* 

AT 
* 
* 

* 
* 

BLOCKDATA = 

* DEFINES THE BLOCK DATA STATEMENT. 

COMMON = "ON* 
/ 
/ 

( 
* 

* DEFINES 

COMMONLABEL = 
$ 

* DEFINES THE FORM OF THE LABEL OF A COMMON 

* IN A COMMON STATEMENT. THE NAME WILL 

* BE ABSENT WHEN THE SOURCE IS DESCRIBING 

* BLANK COMMON. 



•COMM' 
•DEBU' 
•DISP' 
•ENTR' 
•FORM 1 
•INTE' 
•REAL' 



COMMON 

DEBUG 

DISPLAY 

ENTRY 

FORMAT 

INTEGER 

REAL 



= : $400 *43 S 

DEFINES THE, AT STATEMENT. 
SINCE THE AT STATEMENT IS PART OF THE 
FACILITY AVAILABLE ONLY IN FORTRAN G y 
CODE 400 IS USED TO CHECK THAT THE 
SYNTAX DESIRED IS THAT OF FORTRAN G, 
ISSUE AN APPROPRIATE" MESSAGE IF THE 
SYNTAX DESIRED WAS THAT OF FORTRAN H. 
THE MESSAGE ISSUED IS "DEBUG FACILITY 
NOT SUPPORTED". 



'KDATA' 



( COMMONLABEL ) *33 
( DECLARAT0R2 ) 
N ( DECLARAT0R2 ) 
DECLARAT0R2 ) ... ) 



N 



N ( DECLARAT0R2 ) 



( 



) 



( 



) 



( COMMONLABEL 
/ N 



THE COMMON STATEMENT. 



*38 



'/' 



( N ) 



DECLARAT0R2 = 



( 



COMPLEX 



USNZINT 
*12 ')' 



( 



$201 USNZINT 



DEFINES ARRAY DECLARATORS WITH CONSTANT 
DIMENSIONS. THIS KIND OF DECLARATOR IS 
USED IN STATEMENTS (SUCH AS COMMON 
AND EQUIVALENCE STATEMENTS) WHICH DO 
NOT PERMIT VARIABLY DIMENSIONED ARRAYS. 



•LEX' < 'FUNCTION 1 : *33 
FUNCTIONARGS I •*• ( D 
*134 $801 *33 N CLENGTH 
: CLENGTH *32 N CLENGTH 
CDATA I DECLARATOR / *125 



*32 N CLENGTH ( 
DECLARATOR / *125 



< ( 



N CLENGTH 

... ) 'FUNCTION' 
FUNCTIONARGS I 
( < ( DECLARAT0R3 
-•/• > ) ( ' ,' 
DECLARAT0R3 

> ) ... 



) 



) CDATA 



DEFINES THE 
THE COMPLEX 



COMPLEX FUNCTION 
TYPE-STATEMENT. 



STATEMENT AND 



SINCE DECLARATOR IS TESTED AFTER DECLARAT0R3, 
DECLARATOR WILL BE SATISFIED IF AND ONLY IF 
THE ARRAY HAS A DUMMY DIMENSION. IN SUCH A 
CASE, NO DATA-VALUE-INITIALIZATION LIST IS 
ALLOWED, AND THE -•/• TESTS FOR AND DIAGNOSES 
THE PRESENCE OF THE START OF SUCH A LIST. 



CLENGTH 



= ( 



i #t 



16' 



'8 1 



I / *28 $801 ( D 



) > ) 



DEFINES LENGTH SPECIFICATIONS VALID FOR COMPLEX TYPE. 



DECLARAT0R3 



( 



USNZINT ( 



USNZINT 



) 



) 



/ $202 



IPDG5310 
IPDG5320 
IPDG5330 
IPDG5340 
IPDG5350 
IPDG5410 
IPDG5420 
IPDG5430 
IPDG5440 
IPDG5450 
IPDG5460 
IPDG5470 
IPDG5480 
IPDG5490 
IPDG5500 
IPDG5510 
IPDG5520 
IPDG5530 
IPDG5540 
IPDG5550 
IPDG5560 
IPDG5570 
IPDG5580 
IPDG5690 
IPDG5700 
IPDG5710 
IPDG5720 
IPDG5730 
IPDG5740 
IPDG5750 
IPDG5760 
IPDG5770 
IPDG5780 
IPDG5790 
IPDG5800 
IPDG5810 
IPDG5820 
IPDG5830 
IPDG5840 
IPDG5850 
IPDG5860 
IPDG5870 
IPDG5880 
IPDG5890 
IPDG5900 
IPDG5910 
IPDG5920 
IPDG5930 
IPDG5940 
IPDG5950 
IPDG5960 
IPDG5970 
IPDG5980 
IPDG5990 
IPDG6000 
IPDG6010 
IPDG6020 
IPDG6030 
IPDG6040 
IPDG6050 
IPDG6060 
IPDG6070 
IPDG6080 
IPDG6090 
IPDG6093 
IPDG6096 
IPDG6100 
IPDG6110 
IPDG6115 
IPDG6120 
IPDG6130 
IPDG6140 
IPDG6150 
IPDG6152 
IPDG6154 
IPDG6156 
IPDG615 8 
IPDG6160 
IPDG6162 
IPDG6164 
IPDG6166 
IPDG6170 
IPDG6180 
IPDG6190 
IPDG6192 
IPDG6194 
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* 
CDATA 



DEFINES ARRAY DECLARATORS WITH CONSTANT 
DIMENSIONS. THIS DEFINITION IS IDENTICAL 
TO DECLARATOR, EXCEPT THAT NO MESSAGE IS 
ISSUED IF A FAILURE OCCURS BEFORE THE FINAL 
RIGHT PARENTHESIS OF THE DECLARATOR. 



( K 



/ ( 

t sjs • 



$100 



/ 



) 



$100 ) CCONSTANT ( • ,' / 
CCONSTANT ... ) *38 ■/■ 



CCONSTANT = 



DEFINES A LIST OF COMPLEX CONSTANTS ENCLOSED IN SLASHES. 

+ 



FUNCTIONARGS = 
N 



*41 < M f 
*52 ',' ( 

I HCHEX > 



( < 
i — i 






) 



> 

K 



) K 

$104 



$103 
*12 



') ■ 



DEFINES THE KINDS OF CONSTANTS THAT MAY APPEAR IN 
COMPLEX TYPE-STATEMENTS IN THE DATA LIST. THESE 
ARE: COMPLEX CONSTANTS, BOTH FORMS OF LITERAL 
CONSTANT, AND HEXADECIMAL CONSTANTS. 



*35 

*38 
1 / 



*33 



N 
> 

N *38 



I •/■ 



/ 



*33 
/ 



*35 



N 
*13 



DEFINES THE LIST OF DUMMY ARGUMENTS, 
INCLUDING THE PARENTHESES WHICH ENCLOSE 
THE LIST, IN A FUNCTION STATEMENT. 



DECLARATOR = 



* 
DATALIST 



*37 ■<■ / 

< USNZINT 



< USNZINT 
N > ..« 



) 



I 



N 
*12 



> 

•) 



$201 



DEFINITION OF ARRAY DECLARATOR. THIS DEFINITION 
IS USED WHERE VARIABLY - DIMENSIONED ARRAYS 
MAY BE DECLARED. 



* 



( K 



/ ( 



i # i 

$100 



/ $100 ) CONSTANT 



) CONSTANT 



) 



( • 

*38 



•/' 



DEFINES THE DATA LISTS THAT MAY APPEAR IN 
DATA STATEMENTS. 



CONSTANT = 



*40 < 
HCHEX | 
I 'T« 
K $103 
*12 ' ) • 



< » •+» | 
'.TRUE. 1 | 
• F • | •(' 
*52 •,» ( 

> 



•-' > ) K | 

• .FALSE.' 



t _ I 
) 



> ) 

K $104 



DEFINES ALL THE TYPES OF CONSTANT THAT ARE 
PERMITTED BY FORTRAN. 

< H I C | ■Z 1 / HEXDIG ( HEXDIG 

DESCRIBES H-LITERALS, LITERALS, AND HEXADECIMAL 
CONSTANTS. THIS LINE IS USED FOR DATA LISTS IN 
DATA AND TYPE STATEMENTS. 



HCHEX 

HEXDIG = 

* DEFINES A HEXADECIMAL DIGIT. 

DATA = : *79 VARLIST *49 DATALIST 
VARLIST *49 DATALIST ... ) 

* DEFINES THE DATA STATEMENT. 

VARLIST = N ( DECLARAT0R2 ) *33 ( « , ■ / 
... ) 



< 



I 



•A 1 



I 



•B 1 



I 



DEBUG 
OPTION 



DEFINES A LIST OF VARIABLES OF THE KIND 
THAT APPEARS IN A DATA STATEMENT. 



= ■G 1 

.4, 



) 



$400 
) 



( OPTION 



I "E 1 | 'F« 



( ■ , • / *79 



N ( DECLARAT0R2 ) 



*65 OPTION 



DEFINES THE DEBUG STATEMENT. ACTION CODE 
400 ISSUES A "DEBUG FACILITY NOT SUPPORTED" 
MESSAGE IF THE CHECKER IS CHECKING FORTRAN H. 
ONLY FIVE OPTIONS ARE ALLOWED IN THE DEBUG 
STATEMENT SINCE AT LEAST ONE OPTION WOULD 
HAVE BEEN REPEATED IF MORE THAN FIVE 
OPTIONS WERE PRESENT. HOWEVER, NO CHECK 
IS MADE FOR REPEATED OPTIONS IF THERE 
ARE FIVE OR FEWER OPTIONS PRESENT. 

< 'TRACE 1 I 'SUBTRACE 1 I 'UNIT 1 / *30 •(• 



* 


[PDG6196 


# 


[PDG6198 


* 


[PDG6200 


♦ 


[PDG6202 


* 


[PDG6204 


# 


[PDG6206 


# 


[PDG6208 


# 


[PDG6210 




[PDG6220 


# 


[PDG6230 


# 


[PDG6240 


# ■ 


[PDG6250 


#' 


[PDG6260 


* 


[PDG6270 




[PDG6280 


# 


[PDG6290 


* 


[PDG6300 


* ■ 


[PDG6310 


* 


[PDG6320 


# 


[PDG6330 


* : 


[PDG6340 


*»» 


[PDG6370 


*: 


[PDG6380 




[PDG6390 


# : 


[PDG6400 


* 


[PDG6410 


* ■ 


[PDG6420 


# 


[PDG6430 


* ' 


PDG6440 


* 


[PDG6550 




[PDG6560 


# ■ 


PDG6570 


* 


[PDG6580 


* ■ 


[PDG6590 


* ■ 


[PDG6600 


* ■ 


[PDG6610 


*: 


[PDG6620 




PDG6630 


* • 


[PDG6640 


* 


[PDG6650 


* 


PDG6660 


* ■ 


[PDG6670 


# 


[PDG6680 


*■ 


[PDG6685 


*• 


[PDG6690 


•#: 


PDG6695 




[PDG6700 


# : 


[PDG6710 


♦ ■ 


PDG6720 


# 


PDG6730 


* : 


[PDG6740 




[PDG6741 




[PDG6745 




[PDG6746 




PDG6747 




[PDG6748 




PDG6749 




PDG6750 


* : 


[PDG6760 


# 


[PDG6770 


* 


[PDG6780 


* 


[PDG6790 




[PDG6800 


# 


[PDG6810 


* 


[PDG6820 


# 


[PDG6830 


# 


[PDG6840 




[PDG6850 


* 


[PDG6860 


* 


[PDG6870 


* 


[PDG6880 


* 


[PDG6890 


* 


[PDG6900 




[PDG6910 


♦ 


[PDG6920 


* i 


[PDG6930 


* 


[PDG6940 


* 


[PDG6950 


# 


[PDG6960 


* 1 


[PDG6 970 


# i 


[PDG6980 


* 


EPDG6990 


* 


[PDG7000 


* 


[PDG7010 


* 


[PDG7020 


* 


[PDG7030 
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* 

* 

DEFINEFILE 



DSREFNO *12 



'SUBCHK' 
N ... 



•INIT' > ( 
*12 •)• ) 



DEFINES THE FIVE OPTIONS THAT MAY APPEAR 
IN A DEBUG STATEMENT. 



( • 



'NEFILE' : *27 K $105 *31 
*53 •, • USNZINT • , f *63 < »L' I 
*53 • ,' *33 N *13 • ) • ( ' ,' / 
•(• USNZINT *53 ',' USNZINT 



* 
DIMENSION = 



I 



DEFINES THE DEFINE 
THIS STATEMENT, THE 
NUMBER CANNOT BE A 
THE K OPERATOR FOLL 
IS USED WHERE DATA 
REQUIRED. THE FORM 
OF THIS STATEMENT I 
TWO AND-A-HALF LINE 
AND-A-HALF LINES DE 
REPETITION OF THIS 



'IP 



*53 



USNZINT 
•E 1 I •IP > 

*27 K $105 
i *63 
*33 N *13 • ) • . 



*31 



FILE STATEMENT 
DATA SET REFE 
SYMBOLIC NAME, 
OWED BY ACTION 
SET REFERENCE 
OF THE BASIC 
S GIVEN ON THE 
S. THE LAST T 
SCRIBE THE OPT 
ELEMENT FOLLOW 



IN 
RENCE 

SO 

CODE 105 
NUMBERS ARE 
ELEMENT 

FIRST 
WO 

IONAL 
ING A COMMA. 



* 
* 

DISPLAY 

* 
DOUBLE 



•NSION' 
) 



*33 N DECLARATOR ( • ,' 



N DECLARATOR 



DEFINES THE DIMENSI 
THE LINE IS COMMITT 
MATCHED, THE "ARRAY 
ON THE DECLARATOR L 
A DECLARATOR IS MIS 
MESSAGE ON THIS LIN 
ENTIRE LINE. 



ON STATEMENT. 
ED AFTER THE L 
DIMENSIONS EX 
INE WILL BE IS 
SING. THE "NA 
E THEREFORE AP 



•LAY' 



$400 *33 N ( 



SINCE 
ITERAL IS 
PECTED" MESS 
SUED IF 
ME EXPECTED" 
PLIES TO THE 



N 



AGE 



DEFINES THE DISPLAY STATEMENT. THIS 
STATEMENT IS VALID ONLY IN LEVEL G OF 
FORTRAN. ACTION CODE 400 DETERMINES 
WHETHER THE CHECKER IS CHECKING THE G LEVEL 
OF FORTRAN, AND ISSUES A MESSAGE IF NOT. 



END 

* 

* 

ENTRY 

* 

* 

* 

* 

SUBORENTRY 



•LEPRECISION' 
I : *32 N 
( DECLARATOR 



•FUNCTION' 
DECLARATOR 
... ) > 



*33 
( f 1 



FUNCTIONARGS 
/ N 



DEFINES THE DOUBLE PRECISION TYPE-STATEMENT 
AND THE DOUBLE PRECISION FUNCTION STATEMENT. 



$800 



$300 



DEFINES THE END LINE. ACTION CODE 800 PRODUC 
IF THERE ARE ANY CHARACTERS OTHER THAN BLANKS 
CHARACTERS •END 1 WHICH CAUSED NESTING TO THIS 
IF THERE WERE NO NON-BLANK CHARACTERS AFTER • 
CODE 800 PRODUCES A T, CAUSING ACTION CODE 30 
DIAGNOSE ANY STATEMENT LABEL OR CONTINUATION 



ES AN F 

AFTER THE 

LINE. 
END', ACTION 
TO DETECT AND 
FIELD ERRORS. 



'Y' 



SUBORENTRY 



DEFINES THE ENTRY STATEMENT. THE 

SYNTAX TO THE RIGHT OF THE KEYWORD IS THE 

SAME AS THAT OF A SUBROUTINE STATEMENT, SINCE 

IT IS NOT KNOWN WHETHER THE ENTRY STATEMENT APPEARS 

IN A FUNCTION SUBPROGRAM OR IN A SUBROUTINE SUBPROGRAM, 



*33 N 



* 
* 



( • <» / 

DUMMYARG 



*3 5 



DUMMYARC 
) *13 



•) 



DEFINES THE FORM TO THE RIGHT OF THE KEYWORD 
IN A SUBROUTINE OR AN ENTRY STATEMENT. 



/ *33 N *38 



'/' 



i # i 



DUMMYARG = < N I ■ 

* DEFINES DUMMY ARGUMENTS. DUMMY ARGUMENTS 

* SATISFYING THIS DEFINITION MAY BE USED IN 

* EITHER A SUBROUTINE OR AN ENTRY STATEMENT. 

EQUIVALENCE = 'VALENCE* : *30 '(• *33 N ( DE 
*53 ',' *33 N ( DECLARAT0R2 ) ( • 
( DECLARAT0R2 ) ... ) *12 •)' ( ',' 
*33 N ( DECLARAT0R2 ) *53 ',' *33 N 
( ',' / N ( DECLARAT0R2 ) ... ) * 



CLARAT0R2 ) 

,' / N 

/ *30 «(' 

( DECLARAT0R2 ) 

13 ')' ... ) 



DEFINES THE EQUIVALENCE STATEMENT. NONE OF 
DECLARATORS IN THIS STATEMENT MAY CONTAIN A 



THE 



IPDG7040 
IPDG7050 
IPDG7060 
IPDG7070 
IPDG7080 
IPDG7090 
IPDG7100 
IPDG7110 
IPDG7120 
IPDG7130 
IPDG7140 
IPDG7150 
I*DG7160 
IPDG7170 
IPDG7180 
IPDG7190 
IPDG7200 
IPDG7210 
IPDG7220 
IPDG7230 
IPDG7240 
IPDG7250 
IPDG7260 
IPDG7270 
IPDG7280 
IPDG7290 
IPDG7300 
IPDG7310 
IPDG7320 
IPDG7330 
IPDG7340 
IPDG7350 
IPDG7360 
IPDG7370 
IPDG7372 
IPDG7374 
IPDG7376 
IPDG7380 
IPDG7390 
IPDG7400 
IPDG7410 
IPDG7420 
IPDG7430 
IPDG7440 
IPDG7450 
IPDG7460 
IPDG7470 
IPDG7480 
IPDG7482 
IPDG7484 
IPDG7486 
IPDG7488 
IPDG7490 
IPDG7492 
IPDG7494 
IPDG7496 
IPDG7498 
IPDG7499 
IPDG7630 
IPDG7640 
IPDG7650 
IPDG7660 
IPDG7670 
IPDG7672 
IPDG7674 
IPDG7680 
IPDG7690 
IPDG7700 
IPDG7710 
IPDG7720 
IPDG7730 
IPDG7740 
IPDG7750 
IPDG7760 
IPDG7770 
IPDG7780 
IPDG7790 
IPDG7800 
IPDG7810 
IPDG7820 
IPDG7830 
IPDG7840 
IPDG7850 
IPDG7860 
IPDG7870 
IPDG7880 
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EXTERNAL = 



SYMBOLIC NAME INSTEAD OF AN INTEGER CONSTANT. 
AS IN THE DEFINEFILE DEFINITION, THE FIRST 
TWO AND-A-HALF LINES OF THIS DEFINITION 
DESCRIBE THE BASIC FORM. 



•RNAL* 



*33 N 



( 



N 



FORMAT 



DEFINES THE EXTERNAL STATEMENT* 



= "AT" 
( < 



* 

GROUP 



: $301 *30 

1 , ' / GROUP 

) ( •/■ 



(I *77 ( •/• 

•/• ( ■/» 
.. ) ) • ) 



) ( GROUP 
GROUP > 



DEFINES THE FORMAT STATEMENT. 
THE DEFINITION IS A PARENTHESIZ 
GROUPS. (GROUP IS DEFINED ON A 
EACH DELIMITER IN THE LIST IS E 
OR ANY NUMBER OF SLASHES. OPTI 
MAY BE ANY NUMBER OF SLASHES BE 
FIRST GROUP IN THE LIST, OR AFT 
GROUP IN THE LIST, OR BOTH. TH 
NEED NOT BE ANY GROUPS AT ALL. 
LAST SET OF OPTIONAL SLASHES IS 
THE OPTIONAL PARENTHESES FOR TH 
OF GROUPS BECAUSE, IF THERE ARE 
GROUPS, THE FIRST SET OF OPTION 
WILL HAVE MATCHED ALL THE VALID 
WITHIN THE SOURCE'S PARENTHESES 
MESSAGE ISSUED WHEN A RIGHT PAR 
NOT FOUND IS "DELIMITER MISSING 
FORMAT CODE" SINCE ANY FAILURE 
THE RIGHT PARENTHESIS LITERAL I 
DUE TO ONE OF THESE CAUSES. 



ESSENTIALLY, 
ED LIST OF 
NOTHER LINE) 
ITHER A COMMA 
ONALLY, THERE 
FORE THE 
ER THE LAST 
ERE 

THE 

INCLUDED IN 
E LIST 

NO 
AL SLASHES 

CHARACTERS 
. THE 
ENTHESIS IS 

OR INVALID 
TO MATCH 
S PROBABLY 



* 

GR0UP2 



< FIELDESCR I ( 
( GR0UP2 ( < • ,' 
GR0UP2 >...)( 



$700 ) •(• 
/ GR0UP2 | 
•/• ... ) 



/ ( 
) •) 



> 



DEFINES GROUP FOR USE IN THE FORMAT DEFINITION. 

A GROUP IS EITHER A FIELD DESCRIPTOR OR 

ANOTHER FORM THAT IS ESSENTIALLY THE SAME AS A 

FORMAT. THE DIFFERENCES BETWEEN FORMAT AND 

THE SECOND FORM ARE 1) THE SECOND FORM OF 

GROUP MAY HAVE A REPEAT COUNT BEFORE THE 

INITIAL LEFT PARENTHESIS (ACTION CODE- ZOO 

ADVANCES THE SOURCE POINTER PAST THIS COUNT 

IF IT IS PRESENT), AND 2) THE ITEMS 

IN THE PARENTHESIZED LIST ARE EACH GR0UP2 

INSTEAD OF GROUP. THE SECOND DIFFERENCE 

IS NECESSARY TO AVOID ALLOWING AN INDEFINITE NUMBER 

OF LEVELS OF NESTING OF PARENTHESES IN FORMAT 

STATEMENTS. FORTRAN ALLOWS ONLY TWO LEVELS 

OF NESTING INSIDE THE PARENTHESES WHICH ENCLOSE 

THE ENTIRE FORMAT SPECIFICATION. 



* 

* 

FIELDE 



< FIELDESCR 
( $700 ) « 
( FIELDESCR 

<•/•!( 

FIELDESCR > 



I ( $700 ) »(• / ( 

1 / *69 $801 > ... ) 

( < •,' / FIELDESCR I 

$700 ) ■(• / *69 $801 

... ) ( ■/' ... ) ) 



1 /• ( 
> ... 

') ■ > 



DEFINES GR0UP2 FOR USE IN GROUP. AGAIN, 
THE SECOND FORM IS ESSENTIALLY THE SAME AS A 
FORMAT WITH AN OPTIONAL REPEAT SPECIFICATION. 
HOWEVER, IF THE SECOND ALTERNATIVE IS REACHED, THE 
SOURCE IS ON THE SECOND LEVEL OF PARENTHESIS 
NESTING, SO ONLY FIELD DESCRIPTORS, AND 
NOT PARENTHESIZED LISTS, MAY BE MEMBERS 
OF THE PARENTHESIZED LIST. 

ACTION CODE 801 IS USED TO ISSUE A MESSAGE 
DIAGNOSING TOO MANY LEVELS OF PARENTHESES IF ANY 
LEFT PARENTHESIS IS FOUND WITHIN THE PARENTHESES 
WHICH ENCLOSE THE REST OF THE SECOND ALTERNATIVE. 



SCR 



i 



I 



( 

■D 1 






C I $700 «X« 

< 'E' I •F 1 
f G« / $700 ( 

< M 1 I •A" | 'L 1 
H | 'T 1 / $700 
( •-« ) < $700 T '0' ( «0' 

< "E* I »F» I 'D' > / 
■G« / $700 ( »•• / *80 



$700 ) 
> / $700 
/ *80 $701 
I »Z I > 



*80 ••• 
) 

/ $700 > 



$701 



,. ) > 
$700 
$701 



• pt 
#80 
) > 



( $700 ) 
'.• $701 
> 



DEFINES ALL THE FIELD DESCRIPTORS WHICH MAY 
APPEAR IN A FORMAT STATEMENT. 



IPDG7890 
IPDG7900 
IPDG7910 
IPDG7920 
IPDG7930 
IPDG7940 
IPDG7950 
IPDG7960 
IPDG7970 
IPDG7980 
IPDG7990 
IPDG8000 
IPDG8010 
IPDG8020 
IPDG8030 
IPDG8040 
IPDG8050 
IPDG8060 
IPDG8070 
IPDG8080 
IPDG8090 
IPDG8100 
IPDG8110 
IPDG8120 
IPDG8130 
IPDG8140 
IPDG8150 
IPDG8160 
IPDG8170 
IPDG8180 
IPDG8190 
IPDG8200 
IPDG8210 
IPDG8220 
IPDG8230 
IPDG8240 
IPDG8250 
IPDG8260 
IPDG8270 
IPDG8280 
IPDG8290 
IPDG8300 
IPDG8310 
IPDG8320 
IPDG8330 
IPDG8332 
IPDG8334 
IPDG8340 
IPDG8350 
IPDG8360 
IPDG8370 
IPDG8380 
IPDG8390 
IPDG8400 
IPDG8410 
IPDG8420 
IPDG8425 
IPDG8430 
IPD78435 
IPD78440 
IPDG8450 
IPDG8460 
IPDG8470 
IPDG8480 
IPDG8490 
IPDG8500 
IPDG8510 
IPDG8520 
TPDG8530 
IPDG8531 
IPDG8532 
IPDG8533 
IPDG8534 
IPDG8535 
IPDG8540 
IPDG8550 
IPDG8555 
IPDG8560 
IPDG8565 
IPDG8570 
IPDG8575 
IPDG8580 
IPDG8585 
IPDG8600 
IPDG8610 
IPDG8620 
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*33 N FUNCTIONARGS 



FUNCTION = 'TION' 
* 

* DEFINITION OF THE FUNCTION STATEMENT WITH NO 

* LENGTH SPECIFICATION PERMITTED* USED FOR 

* FUNCTION STATEMENTS NOT PRECEDED BY A TYPE. 

: *41 +TYPE *31 M • $500 ( 
*13 • ) • ( ', • / *41 +TYPE 
/ $500 ... ) *13 • ) ■ 



IMPLICIT 



'ICIT* 
... ) 
( S • 



*31 
) 



$500 
$500 



* 
* 

TYPE 



DEFINES THE IMPLICIT STATEMENT. ACTION CODE 
500 IS USED FOR THE ELEMENTS OF THE LISTS 
THAT MAY APPEAR IN IMPLICIT STATEMENTS, THE 
ACTION CODE CHECKS FOR THE SYNTAX 



L ( 



/ L ) 



THIS COULD BE DONE BY AN ORDINARY SYNTACTIC 

DEFINITION, BUT THE ACTION CODE PERFORMS. AN 

ADDITIONAL TEST OF THE FORM WITH TWO LETTERS 

WHICH COULD NOT BE DONE IN ORDINARY SYNTAX. 

IF THE SECOND LETTER IS NOT LATER IN THE ALPHABETIC 

SEQUENCE THAN THE FIRST, ACTION CODE 500 

ISSUES AN ERROR MESSAGE. 



INTEGER 



" 'REAL 1 RLENGTH 

•COMPLEX' CLENGTH" 



• INTEGER" 
•LOGICAL" 



ILENGTH 
LLENGTH 



TABLE DEFINING THE TYPE AND LENGTH SPECIFICATIONS 
THAT CAN APPEAR IN THE IMPLICIT STATEMENT. 



•GER' < 'FUNCTION 1 : *33 
FUNCTIONARGS I '*' ( D 
*134 $801 *33 N ILENGTH 
: ILENGTH *32 N ILENGTH 
IDATA | DECLARATOR / *125 



DEFINES THE 
THE INTEGER 



ILENGTH 

* DEFINES 

IDATA 



*32 N ILENGTH ( 
DECLARATOR / *125 



< ( 



N ILENGTH 

... ) 'FUNCTION' 
FUNCTIONARGS | 
( < ( DECLARAT0R3 
-'/' > ) ( '-' 



DECLARAT0R3 
> ) . 



) IDATA 



) 



INTEGER FUNCTION STATEMENT 
TYPE-STATEMENT. 



AND 



SINCE DECLARATOR IS TESTED AFTER DECLARAT0R3, 
DECLARATOR WILL BE SATISFIED IF AND ONLY IF 
THE ARRAY HAS A DUMMY DIMENSION. IN SUCH A 
CASE, NO DATA-VALUE-INITIALIZATION LIST IS 
ALLOWED, AND THE -*•/• TESTS FOR AND DIAGNOSES 
THE PRESENCE OF THE START OF SUCH A LIST. 



= ( 



• $i 



•2« 



I «4« | / *28 $801 ( D 



LENGTH SPECIFICATIONS VALID FOR INTEGER TYPE. 



( K 



/ ( 



$100 



) 



$100 ) ICONSTANT 
ICONSTANT ... ) 



( • 

*38 



DEFINES A LIST OF INTEGER CONSTANTS ENCLOSED IN SLASHES. 



ICONSTANT = *41 < HCHEX I ( < • -• I • + ' > ) K / $102 

* DEFINES THE FORMS OF CONSTANT THAT ARE VALID IN THE 

* DATA LIST OF AN INTEGER TYPE-STATEMENT. THESE ARE: 

* INTEGER CONSTANTS, BOTH FORMS OF LITERAL CONSTANT, 

* AND HEXADECIMAL CONSTANTS. 

•CAL' < 'FUNCTION 1 : *33 N LLENGTH 
FUNCTIONARGS | •*• ( D ... ) 'FUNCTION' : 
*134 $801 *33 N LLENGTH FUNCTIONARGS I 
: LLENGTH *32 N LLENGTH ( < ( DECLARAT0R3 1 
LDATA I DECLARATOR / *125 -•/• >)('.' 



LOGICAL 



LLENGTH 



*3.2 N LLENGTH ( 
DECLARATOR / *125 



< ( 
-'/' 



DECLARAT0R3 
> ) . 



) 



) LDATA 



DEFINES THE LOGICAL FUNCTION STATEMENT AND 
THE LOGICAL TYPE-STATEMENT. 

SINCE DECLARATOR IS TESTED AFTER DECLARAT0R3, 
DECLARATOR WILL BE SATISFIED IF AND ONLY IF 
THE ARRAY HAS A DUMMY DIMENSION. IN SUCH A 
CASE, NO DATA-VALUE-INITIALIZATION LIST IS 
ALLOWED, AND THE -•/• TESTS FOR AND DIAGNOSES 
THE PRESENCE OF THE START OF SUCH A LIST. 



( 



• # i 



1' 



I 



I / *28 $801 ( D 



IPDG8630 

IPDG8631 

IPDG8632 

IPDG8633 

IPDG8634 

IPDG8635 

IP0G8636 

IPDG8640 

IPDG8650 

IPDG8660 

IPDG8670 

IPDG8680 

IPDG8690 

IPDG8700 

IPDG8710 

IPDG8720 

IPDG8730 

IPDG8740 

IPDG8750 

IPDG8760 

IPDG8770 

IPDG8780 

IPDG8790 

IPDG8800 

IPDG8810 

IPDG8820 

IPDG8830 

IPDG8840 

IPDG8870 

IPDG8880 

IPDG8890 

IPDG8900 

IPDG8905 

IPDG8910 

IPDG8911 

IPDG8912 

IPDG8913 

IPDG8914 

IPDG8915 

IPDG8918 

IPDG8920 

IPDG8922 

IPDG8924 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG8926 

IPDG8928 

IPDG8930 

IPDG8932 

IPDG8934 

IPDG8936 

IPDG8938 

IPDG8940 

IPDG8942 

IPDG8944 

IPDG8948 

IPDG8950 

IPDG8952 

IPDG8954 

IPDG8956 

IPDG8958 

IPDG8959 

IPDG8960 

IPDG8961 

IPDG8962 

IPDG8963 

IPDG8964 

IPDG8966 

IPDG8968 

IPDG8970 

IPDG8972 

IPDG8974 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG8976 

IPDG8978 
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LDATA 
LCONSTANT = 



DEFINES LENGTH SPECIFICATIONS VALID FOR LOGICAL TYPE, 
•/• / ( K •#• /. $100 A LCONSTANT ( • 



# 
NAMELIST = 



( K •#• / $100 ) LCONSTANT ... ) #38 

DEFINES A LIST OF LOGICAL CONSTANTS ENCLOSED IN SLASHES 

#41 < ".TRUE. 1 I ".FALSE. 1 I «T' I »F« 
HCHEX > 



t' / 



DEFINES THE FORMS OF CONSTANT WHICH ARE VALID IN THE 
DATA LIST OF A LOGICAL TYPE-STATEMENT. THESE ARE: 
LOGICAL CONSTANTS* ABBREVIATED LOGICAL CONSTANTS, BOTH 
FORMS OF LITERAL CONSTANT, AND HEXADECIMAL CONSTANTS. 



# 

# 
REAL 



•LIST' 
( %' 

#32 N 



#39 
N « 



) 



#33 
( 

... 



( • ,' / N 

DEFINES THE NAMELIST STATEMENT. 



N 
) 



#39 •/■ 
/ #33 N 
) 



#32 

#39 



N 



»/• 



DEFINES THE REAL FUNCTION STATEMENT AND 
THE REAL TYPE-STATEMENT. 

SINCE DECLARATOR IS TESTED AFTER DECLARAT0R3, 
DECLARATOR WILL BE SATISFIED IF AND ONLY IF 
THE ARRAY HAS A DUMMY DIMENSION. IN SUCH A 
CASEt NO DATA-VALUE-INITIALIZATION LIST IS 
ALLOWED, AND THE -.' /• TESTS FOR AND DIAGNOSES 
THE PRESENCE OF THE START OF SUCH A LIST. 

^ I / #28 $801 ( D 



= < 'FUNCTION 1 : #33 N RLENGTH 

FUNCTIONARGS I ■*• ( D ... ) 'FUNCTION' 

#134 $801 #33 N PLENGTH FUNCTIONARGS | 
: RLENGTH #32 N RLENGTH ( < ( DECLARAT0R3 
RDATA | DECLARATOR / #125 -. • / ■ >)(',' 
/ #32 N RLENGTH ( < ( DECLARAT0P3 ) RDATA 
I DECLARATOR / #125 - • / » >)...) > 

* 
# 
# 
# 
# 
# 

# 

# 

RLENGTH =(•#•< '8' | «4» | / #28 $801 ( D ... ) 

# 

# DEFINES LENGTH SPECIFICATIONS VALID FOR REAL TYPE. 

RDATA = •/• / ( K •#• / $100 ) RCONSTANT ( »,' / 

< K ■*• / $100 ) RCONSTANT ... ) #38 •/• 
# 

# DEFINES A LIST OF REAL CONSTANTS ENCLOSED IN SLASHES. 
# 

RCONSTANT = #41 < HCHEX !(<•-• | ■+■ > ) K / $106 > 

# DEFINES THE FORMS OF CONSTANT THAT ARE VALID IN THE 

# DATA LIST OF A REAL TYPE STATEMENT. THESE ARE: REAL 

# CONSTANTS OF EITHER LENGTH, BOTH FORMS OF LITERAL 

# CONSTANT, AND HEXADECIMAL CONSTANTS. 

SUBROUTINE = 'OUTINE' : SUBORENTRY 

# 

DEFINES THE SUBROUTINE STATEMENT. THE 
SYNTAX TO THE RIGHT OF THE KEYWORD IS THE 
SAME AS THAT OF THE ENTRY STATEMENT. 



# 

# 
# 

TRACE 

# 

# 

# 
# 

INTEGEXP = 



= < 



•EON' 



$400 | 'EOFF' 



$400 



DEFINES THE TPACEON AND TRACEOFF STATEMENTS. 
THESE ARE NOT VALID STATEMENTS UNLESS THE SYNTAX 
CHECKER IS CHECKING AGAINST FORTRAN LEVEL G. 
ACTION CODE 400 ISSUES A "DEBUG FACILITY NOT 
SUPPORTED" MESSAGE IF FORTRAN LEVEL H HAS 
BEEN SPECIFIED. 



# 
OPERANDI = 



< • + • | 

+ARITHOP 



i — i 

/ 



> ) OPERANDI #55 

OPERANDI ... ) --•■ 



THIS STATEMENT IS THE SAME AS ARITHEXP2 EXCEPT THAT 

CONSTANT WILL NOT SATISFY THE DEFINITION. 

THIS STATEMENT WAS ADDED FOR PTM2770 FIX (RELEASE 19). 



A REAL 

>iOjc >Js >Js sjs 



* 
# 



/ $102 I N 

/ FUNCACTARG .. 
(• ARITHEXP2 / 



( 



•( • / 

) $200 

#12 •)• 



#7 
#12 
> 



FUNCACTARG 
• )• ) 



THIS STATEMENT IS THE SAME AS 0PERANDA2 (BUT DEFINES OPERANDS 
FOR INTEGEXP) EXCEPT THAT THE K OPERATOR WILL FAIL IF A 
CONSTANT IS NOT AN INTEGER. 
THIS STATEMENT WAS ADDED FOR PTM2770 FIX (RELEASE 19). ##### 



# 

>{e 5{s ^« # >Je 
# 
( * 

# 

# 



IPDG8980 

IPDG8982 

IPDG8984 

IPDG8986 

IPDG8988 

IPDG8990 

IPDG8992 

IPDG8994 

IPDG8996 

IPDG8998 

IPDG9000 

IPDG9002 

IPDG9004 

IPDG9006 

IPDG9008 

IPDG9010 

IPDG9020 

IPDG9030 

IPDG9040 

IPDG9050 

IPDG9060 

IPDG9065 

IPDG9070 

IPDG9071 

IPDG9072 

IPDG9073 

IPDG9074 

IPDG9075 

IPDG9078 

IPDG9080 

IPDG9082 

IPDG9084 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG 

IPDG9086 

IPDG9088 

IPDG9090 

IPDG9092 

IPDG9094 

IPDG9096 

IPDG9098 

IPDG9100 

IPDG9102 

IPDG9104 

IPDG9108 

IPDG9110 

IPDG9112 

IPDG9114 

IPDG9116 

IPDG9118 

IPDG9130 

IPDG9140 

IPDG9150 

IPDG9160 

IPDG9170 

IPDG9180 

IPDG9190 

IPDG9200 

IPDG9210 

IPDG9220 

IPDG9230 

IPDG9240 

IPDG9250 

IPDG9260 

IPDG9270 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 

IPDAGH 



SYNTAX END 



IPDG9280 
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INDEX 



... operator (see also indefinite 
iteration operator) 

assembler language equivalent for 21 

description of 21, 40 

displacement conventions for 20 
. n. operator (see also definite iteration 
operator) 

assembler language equivalent for 21 

description of 21, 40 

displacement conventions for 20 
< operator (see also alternative operator) 

assembler language equivalent for 21 

description of 21, 38 

displacement conventions for 20 

effect on qualification list 103-104 
( operator (see also optional item 
operator) 

assembler language equivalent for 21 

description of 21, 38 

displacement conventions for 20 
+ passive line operator 

assembler language equivalent for 24 

displacement conventions for 20 

effect on source pointer 13 

references to 13 

scan of 13 
+table name operator (see +passive line 
operator) 
| operator (see also or operator, 
alternative operator) 

assembler language equivalent for 21 

description of 21,38 

displacement conventions for 20 
£-ia operator (see also scan-not operator) 

assembler language equivalent for 24 

description of 24,43 

displacement conventions for 20 
Sa operator (see also scan operator) 

assembler language equivalent for 24 

description of 24,43 

displacement conventions for 20 
$n operator (see also action code routines) 

assembler language equivalent for 24 

description of 24,43 

displacement conventions for 20 
*, restriction on use 18-19 
**, restriction on use 18-19 
*n operator (see also error code routines) 

assembler language equivalent for 24 

description of 24,43 

displacement conventions for 20 
) operator (see also optional item 
operator) 

assembler language equivalent for 21 

description of 21, 38 

displacement conventions for 20 
1 , aa«..a l : operator (see also not-literal 
operator) 

assembler language equivalent for 23 

description of 23,43 

displacement conventions for 20 
-passive line operator (see also minus 



passive line) 

assembler language equivalent for 25 

description of 25,43-44 

displacement conventions for 20 

effect on source pointer 13 

references to 13 
-table name operator (see -passive line 

operator) 
/ operator 

(see also local commit operator) 

assembler language equivalent for 22 

description of 22,35 

displacement conventions for 20 
> operator 

(see also optional item operator) 

assembler language equivalent for 21 

description of 21, 38 

displacement conventions for 20 
: operator 

(see also statement commit operator) 

assembler language equivalent for 22 

description of 22,38 

displacement conventions for 20 
"aa. . .a' 

(see also literal operator) 

assembler language equivalent for 23 

description of 23, 43 

displacement conventions for 20 



A operator 23, 40 

ACT symbol 19-20,21-26 

action code routines 

as element in metalanguage 12 

description of 24,44-45 

effect on source pointer 12 

exception 12 

example of use 18 

T/F- producing of 12 

uses of 12,44-45 
active lines 

elements used in, restriction 11 

f- producing element in 14-15 

format of 11 

nesting to 13 

operators used in 11 

references to 11 

replaces passive line 1.4 

scan of 15 
alphameric operator 23,40 
ALT symbol 19-20,21-26 
alternative operator 

assembler language equivalent for 21 

displacement conventions for 20 

effect on scan 13 

effect on source pointer 12 

ordering of alternatives, 
restriction 17 
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arithmetic operator 

use in syntax table 18 

assembler language 

metalanguage equivalent of 19 f 21-26 
relationship to syntax tables 10 



beginning source pointer 

BOMBR macro 112 

BRC symbol 19-20 # 21-26 



31 



C operator (see also character string 
operator) 

assembler language equivalent for 23,43 

description 
general 23 
specific 43 
character string operator 23,43 
CKRCSTRG routine 43 
CKRDIGIT routine 40 
checker 

flowcharts 54-93 

function 50 

interface with executive 7 

part of IPDSN module 7 

routines called by 52 
CHECKER macro 

format of 113 

language level default 113 

use of 113 
CKRACNDX table 95 
CKRACTN routine 

description of 43 

flowchart 75 
CKRALMER routine 

description of 40 

flowchart 68 
CKRAR100 routine 

description of 45 

flowchart 76 
CKRAR101 routine 

description of 45 

flowchart 76 
CKRAR102 routine 

description of 45 

flowchart 76 
CKRAR103 routine 

description of 45 

flowchart 77 
CKRAR104 routine 

description of 45 

flowchart 77 
CKRAR105 routine 

description of 45 

flowchart 77 
CKRAR106 routine 

description of 45 

flowchart 78 
CKRAR200 routine 

description of 45 

flowchart 79 



CKRAR201 routine 

description of 46 

flowchart 79 
CKRAR202 routine 

description of 46 

flowchart 79 
CKRAR300 routine 

description of 46 

flowchart 80 
CKRAR301 routine 

description of 46 

flowchart 80 
CKRAR400 routine 

description of 46 

flowchart 81 
CKRAR500 routine 

description of 46 

flowchart 82 
CKRAR600 routine 

description of 46 

flowchart 83 
CKRAR601 routine 

description of 46 

flowchart 83 
CKRAR602 routine 

description of 46 

flowchart 83 
CKRAR603 routine 

description of 47 

flowchart 83 
CKRAR700 routine 

description of 47 

flowchart 84 
CKRAR701 routine 

description of 47 

flowchart 85 
CKRAR800 routine 

description of 47 

flowchart 85 
CKRAR801 routine 

description of 47 

flowchart 85 
CKRCKSIZ routine 42 
CKRCSTRG routine 

description of 43 

flowchart 72 
CKRDECPT routine 42 
CKRDIGIT routine 

description of 40 

flowchart 68 
CKRCOMIT routine 

description of 38 

flowchart 64 
CKREVALU routine, flowchart 
CKREXPON routine 42 
CKRFAIL routine 

description of 44 

flowchart 88 
CKRGTANY subroutine 

description of 47-48, 52 

flowchart 90 
CKRGTNB1 subroutine 

called by checker 52 

description of 53 

flowchart 89 
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CKRGTNBS subroutine 

called by checker 52 

description of 48,52-53 

flowchart 90 
CKRHOLLR routine 

description of 42-43 

flowchart 71 
CKRINTEG routine 41-42 
CKRINTLZ routine, flowchart 61 
CKRINTRP routine, flowchart 62 
CKRITDEF routine 

description of 40 

flowchart 65 
CKRITIND routine 

description of 40 

flowchart 65 
CKRLBRCE routine 

description of 38 

flowchart 63 
CKRLETTR routine 

description 40 

flowchart 68 
CKRLOFLO routine, flowchart 66 
CKRLPARN routine 

description of 38 

flowchart 63 
CKRMESSG routine 

description of 43 

flowchart 8 6 
CKRMNAME routine 

description of 40 

flowchart 67 
CKRNAME routine 

description of 40 

flowchart 67 
CKRNOTQT routine 

description of 43 

flowchart 73 
CKRNUMBR routine 

description of 40-41 

flowchart 69 
CKRNWOLD routine, flowchart 61 
CKROPNDX table 97 
CKROR routine 38 
CKRQUOTE routine 

description of 43 

flowchart 73 
CKRRBRCE routine 

description of 38 

flowchart 63 
CKRRDORE routine 42 
CKRREAL routine 42 
CKRRPARN routine 

description of 38 

flowchart 63 
CKRSCAN routine 

description of 43 

flowchart 74 
CKRSCANF routine 

description of 43 

flowchart 74 
CKRSERCH subroutine 

called by checker 52 

flowchart 91 

function of 48, 52 

translate and text table for 106 

WKASGRTB table 106 



CKRSKANY subroutine 

called by checker 52 

description of 47-48, 52 

flowchart 90 
CKRSTATM routine 

description of 42 

flowchart 70 * 
CKRSTCMT routine 

description of 38 

flowchart 64 
CKRSYNS routine 

description of 40 

flowchart 66 
CKRSYUNS routine 

description of 44 

flowchart 87 
CKRTABL routine 

description 43 

flowchart 86 
CKRUNEST routine 

flowchart 87 
COD symbol 19-20,21-26 
commit operator (see also local commit ? 
statement commit) 

definition of 16 

description of 22,35 

effect on error messages 15 

effect on nesting 103-104 

example of use 18 
communications area 28 
configuration considerations, syntax 

checker 7-8 
CRJE (Conversational Remote Job Entry) 

interface with syntax checker 7,8 
current message 

definition of 15 

effect of nesting on 15-16 



D operator 23, 40 

DEBUG facility, FORTRAN IV 4 6 

debugging aids 

flag byte (WKASFAIL) 108 

global symbols 112 

macros 112 

register contents 108-109 

WKASFAIL setting 110-111 
DEF symbol 19-20,21-26 
definite iteration operator 

description of 14 

purpose of 40 

scan of 21, 40 
definition portion of syntactic line 

contents of 12 

metalanguage elements in 21-26 

passive line, restriction on 12 
diagnostic messages 

unique to language level 7 
digit count, in K operator routine (see 
also K operator) 

as metalanguage element 40-41 
digit operator 23,40 
displacement conventions 20 
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E,G,G1,H, Code and Go levels of FORTRAN 

as input to syntax checker 7 
EDIT command 

FORT parameter of 7 

SCAN subcommand of 7 
enclosing lines , in syntax table 11 
end operator 26 
END statement, checked by syntax 

checker 11 
end-of-def inition-line routine (see also 

CKRSYUNS routine) 44 
end source pointer 31 
EQU symbol 19-20 
error code message-originator cross 

reference table 115-118 
error code processor, function of (see also 

IPDERERR CSECT) 53 
error code routines, assembler language 

equivalent for 19 f 21-26 
error messages 

and FORTRAN language levels 7 

and metalanguage 11 

example of use 18 

explicit 15 

implicit 17 

list of 115-118 
executive (see also IPDSNEXC routine) 

flowcharts 54-58 

function of 7, 50 

interface with checker 7 

interface. with environmental system 7 



F-producing element (see also T/F - 
producing elements) 
definition of 12-13 
effect on scan 13 
effect on source pointer 12 
in active and passive line 14,15 
F-unnesting (see also unnesting, nesting) 
definition of 15 
example of 15,18 
FORMAT statement, checked by syntax 

checker 46 
FORT parameter 7 

FORTRAN E (see also FORTRAN language 
levels, IPDTEE module) 
syntax table for 7,10 
FORTRAN G, Gl, H, and Code and Go (see also 
FORTRAN language levels, IPDAGH module) 
syntax table for 7,10 
FORTRAN language levels 
error messages for 7 
syntax tables for 7,10 
storage requirements 8 
FORTRAN statements 

as input to syntax checker 7 
FORTRAN IV Syntax Checker (see also syntax 
checker) 

interface with CRJE 7,8 
interface with TSO 7,8 



GENERATE macro, use of 113 
GENTYPE parameter, for system 

generation 113 
get-character routines (see also CKRGTANY, 
CKRSKANY, CKRGTNBS, CKRGTNBl, CKRSERCH 
subroutines) 

definition of 10 
effect on source pointer 47-4 8 
effect on syntax table 10 
function of 52-53 



H operator 23,42-43 



IEBCOPY utility program 114 
IMPLICIT statement, scanning of 46 
implicit error messages 17 

syntactic lines in 11 
indefinite iteration operator 

assembler language equivalent for 21 

description of 21, 40 

effect on scan 14 

example of use 18 
input, processing of 7 
I/O processing 7 
IPDAGH module 

definition load table entry for 97 

how created 10 

metalanguage elements in 11,130-142 

storage requirements 8 

syntactic lines in 11 
IPDER module 

function of 7 

interface with executive 7, 48-49 
IPDERERR CSECT (see also error code 
processor) 

flag byte in 111 

flowchart 92 

WKASFAIL setting in 111 
IPDSN module (see also IPDSNCKR CSECT, 
IPDSNEXC CSECT) 

parts of 7 

work area for 7 
IPDSNCKR CSECT (see also checker) 

debugging aids 108-112 

flowchart 

general 59-60 
specific 61-92 

interface with executive 50 

relation to IPDSN module 7 

WKASFAIL setting in 111 
IPDSNEXC CSECT (see also executive) 

BOMBR macro in 112 

contents of 8 

flowcharts 54-58 

functions of 50 

interface with environmental system 50 

relation to IPDSN module 7 

restrictions, work area 50 

routines called by 50 

storage requirements 8 

WKASFAIL setting in 110 
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IPDSNWKA work area 

format of 97-98 

work areas within 99-106 
IPDTEE module (see also syntax tables) 

creation of 10-11 

definition load table entry for 97 

metalanguage elements in 11, 124-129 

storage requirements 8 

syntactic lines in 11 
iteration count, effect on scan 14 



K operator (see also action code 
routines) 23, 40 



L operator (see also letter 

operator) 22, 40 
leading-zeroes count, in K operator rtn 

(see also K operator routine) 40 
letter operator 

assembler language equivalent of 22 

description of 22,40 

displacement conventions for 20 
LINKLIB 

at system generation 113-114 

modules required for checker 7-8 
literal operator 

example of use 18 

restriction on 13-14 
local commit operator 

effects of 13, 16 



M operator 

assembler language equivalent for 22 

description of 22,40 

example of 18 
macros 

BOMBR 112 

CHECKER 113 

debugging aids 112 

GENERATE 113 

system generation 113 
message codes (see also error messages) 

effect on scan 16 

implicit and explicit 15-17 
metalanguage 

assembler language equivalent 
for 19,21-26 

definition of 10 

elements of 21-26 

extended concept of 11 

for IPDAGH 130-142 

for IPDTEE 124-129 

functions of 11 

operators of 11 
microfiche directory 93-94 
minus passive line 

effect on source pointer 13 

references to 13 

scan of 13 



minus passive line operator (see -passive 

line operator) 
module-CSECT cross reference table 93 



22,40 



13 
103-104 



N operator 

description of 

example of 18 
nesting (see also nest lists) 

definition of 

description of 

diagram of 33 

effect on error messages 16 

example of 15, 18 
nest lists (see also nesting, unnesting) 

affected by metalanguage 37, 38-44 

pushdown stack concept 103 

WKALNEST 104 

WKANLIST 105 
not-literal operator (see also i ' aa. • • a 1 ) 

effect on source pointer 12 

use of 23 



operators 

and implicit error messages 17 

as metalanguage elements 11 

assembler language equivalents 20,21-26 

DEF symbols for 19-20,21-26 

description of 21-26 

example of use 18 
optional item operator (see also < 
operator) 

effect on source pointer 12 

example of use 18 
options word 27 

or operator (see also | operator, 
alternative operator) 

effect on source pointer 13 
output, processing of 7 



19-20,21-26 
FORTRAN statement 



PAR symbol 
parameters, 

FORT 7 

TYPE 113 
parameter list, syntax checker 26 
passive line (see also minus passive line) 

advantages of 14 

elements in, restriction 

format of 12 

purpose of 12 

references to 12 

replaced by active line 

restriction on elements 
plus passive line operator (see +passive 

line operator) 
pushdown stack (see nesting, qualification 
list) 
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14 

12 
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qualification list 

description of 37, 105 

diagram of 36 

affected by metalanguage 
general 37 
specific 38-44 



range, of IMPLICIT statement 46 
READ keyword # in syntax table 18 
register contents 

at entry to CSECTS 108 

during syntax checker 
processing 108-109 



S operator 

assembler language equivalent for 23 

description of 23, 42 
SCAN subcommand (see also EDIT command) 7 
scan operator 

assembler language equivalent for 24 

description of 24, 43 

effect on source pointer 12 
scan- not operator 

assembler language equivalent for 24 

description of 24, 43 

effect on source pointer 12 
source characters 

routines associated with 12,10 
source- end switch 52-53 
source pointer 

and T/F producing elements 15, 12 

effect of nesting and unnesting 
on 15,12 

get-character routines effect 
on 12,52-53 

scan and scan-not elements effect on 12 
source statement, entering of 7 
statement commit operator (see also commit 

operator) 13,16 
statement global commit switch 38 
statement portion of input line 10 
storage requirements 

effect of passive line on 14 

IPDTEE and IPDAGH modules 8 

syntax checker 8 
subscripting switches 46 
switches 

statement global commit 38 

subscripting 46 
symbol conventions 

general 19-20 

specific 21-26 
symbolic-name operator 

assembler language equivalent for 22 

description of 40 

displacement conventions for 20 
syntactic line (see also active line, 
passive line) 

current message in 15 

definition portion of 12 

displacement conventions for 20 

elements of 21-26,12 



error message code 16 

examples of 18 

function of 11 

order of 11 

parts of 11 

references to 20,13-14 

restrictions 12 

self-referencing facility 11,18-19 
syntax checker 

and EDIT command 7 

committed, definition of 16 

configuration considerations 8 

debugging aids 108-112 

error detection 7 

error messages, list of 115-118 

input checked by 7,10 

purpose 7 

restriction on input 10 

storage requirements 8 

syntax tables for 7 

system generation 7,113-114 
SYNTAX END line 12 
SYNTAX line 

assembler language equivalent for 19 

format of 12 

restrictions on 12 

use of 12 
syntax language (see metalanguage) 
syntax table (see also IPDTEE module, 
IPDAGH module) 

assembler language equivalent for 10 

configuration considerations 8 

definition of 10 

elements of 21-26 

(see also metalanguage) 

example of 18 

assembler language equivalent 

for 119-120 
explanation of 18,19 
limits of 17 

function 

general 10 
specific 10-26 

restriction, input 10 

scanning of 13-15 

storage requirements 8 
system generation 

CHECKER macro for 113 

description of 
general 10 
specific 113-114 

T producing elements (see also T/F 
producing elements) 

definition of 12-13 

effect on source pointer 12 
T/F producing elements (see also T 
producing elements F producing elements) 

definition of 12-13 

effect on scan of syntactic line 13 
T- unnesting (see also nesting, unnesting) 

definition of 14 

example 15 
TAB symbol 19-20,21-26 
tables (see also syntax tables) 

action code routine 92 

CKRACNDX 95 

CKROPNDX 96 
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definition address table 99 
definition load table 96 
error messages 

displacements for 115-118 
list of 115-118 
EXCLODTB 96 
EXCSYNXS 99 
MSG000 96 
MASGTABLE 96 
operator routine 96 
translate and test (see also CKRSERCH 

routine) 106 
WKASERTB 106 
WKATINUE 107 
table-name operator (see +passive line, 

-passive line) 
TSO (Time Sharing Option), interface with 

syntax checker 7/8 
TYPE parameter, of CHECKER macro 113 



wh-literal 23, 42-45 
WKACKPRM parameter list 102 
WKASFAIL flag byte 108-111 
work areas 

communications area 103 

for error code processor 101 
for get character routines 103 
error message 101 



EXCSYNXS 
IPDCKWRK 
IPDERWKA 
IPDSNWKA 



99 
100 
101 
98 



miscellaneous checker work 

areas 100-101 
nesting 103-104 
pushdown stack 103 
qualification list 105 

WKAQLIST 105 

WKAQUALF 106 
syntax checker 97-98 
within IPDSNWKA 97-98 



unnesting 

definition of 14 
effect on error messages 
example of 18 



zero-count, in K-operator routine (see also 
K-operator) 40 
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